use Term::ReadKey;
ReadMode 4;
$User_Password = <STDIN>;
ReadMode 0;