#!/usr/local/bin/perl
while ($_=shift) {
    @pw = getpwnam($_);
    print(join(":",@pw),"\n");
}