use Term::ReadKey;
ReadMode 'noecho';
my $password = ReadLine 0;