print "Enter password: ";
system "stty -echo";
my $passwd = <STDIN>;
chomp $passwd;
system "stty echo";
print "Fool! I'm telling everyone your password is: $passwd\n";