print "Password : ";
system ("stty -echo");
my $password = <STDIN>
system ("stty echo");