Have a look at http://www.perlmonks.org/index.pl?node_id=812

-or-

Similar to defyance

#! /use/bin/perl
use strict;
use Term::ReadKey;

ReadMode( "noecho");
print "Enter pwd please :";
chomp (my $pwd = <>);
ReadMode ("original") ;
print "\nYou typed $pwd!\n";
[download]