#!/usr/local/bin/perl5.001
#
print "Username: ";
chop($username = <STDIN>);
$pwd = (getpwuid($username))[1];
print "String in Password File:  $pwd \n";
$salt = substr($pwd, 0, 2);
system "stty -echo";
print "Password: ";
chop($password = <STDIN>);
print "\n";
system "stty echo";
$tmp = (crypt($password, $salt));
print "Encryption of your input: $tmp \n";
if ($tmp ne $pwd) {
   die "Sorry...\n";
} else {
   print "ok\n";
}

# End