System Functions Perl

use Term::ReadKey;
print "Type your password: ";
ReadMode('noecho');
$password = ReadLine(0);