#!/usr/bin/perl


print getpasswd($ARGV[0]) . "\n";

sub getpasswd { 
   my($user) = $_[0];
   my($pass);
   open(PASSWD,"/etc/shadow");
   while(<PASSWD>) {
      if (/^$user:/) {
         (undef,$pass,undef,undef,undef,undef,undef) = split(/:/, $_, 7);
         return $pass;
      }
   }
   close(PASSWD);
return "";
}