$pwd = (getpwuid($<))[1]; system "stty -echo"; print "Password: "; chomp($word = ); print "\n"; system "stty echo"; if (crypt($word, $pwd) ne $pwd) { die "Sorry...\n"; } else { print "ok\n"; }