Using Term::ReadKey isn't that trickey:

#!/usr/bin/perl -w

use Term::ReadKey;

ReadMode 'noecho';
my $password = ReadLine 0;
chomp($password);
ReadMode 'normal';

# and use $password here...
[download]

Arjen