#!/usr/bin/perl
print gethomedir($ARGV[0]) . "\n";
sub gethomedir {
   my($user) = $_[0];
   if ($user eq "") { return ""; } 
   my($homedir);
   open(PASSWD,"/etc/passwd");
   while(<PASSWD>) {
      if (/^$user:/) {
         (undef,undef,undef,undef,undef,$homedir,undef) = split(/:/, $_, 7);
         close(PASSWD);
         return $homedir;
      }
   }
   close(PASSWD);

}