use Term::ReadKey;
...
print "enter user1 password: ";
ReadMode 'noecho';
$PASS = ReadLine 0;
print "enter device enable password: ";
$ENABLE = ReadLine 0;
ReadMode 'normal';
...