Heres a solution from the Perl Cookbook which uses Term::ReadKey

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

--
my $chainsaw = 'Perl';