print "what's the password? ";
my $pass = <STDIN>;