#!/usr/local/bin/perl
# home - get home directory of user, by name or uid

# default to euid
$ARGV[0] = $> unless $ARGV[0] ne "";

while (($_ = $ARGV[0]) ne "") {
    if (/-?\d+/) {
	$home = (getpwuid($_))[7];
    } else {
	$home = (getpwnam($_))[7];
    }
    print "$home\n" if $home;
    shift;
}

exit ($home eq "");