rsriram.

Please read perlfaq8.
A short example:

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

print "Enter password: ";
ReadMode('noecho');
my $password = ReadLine(0);
ReadMode('normal');  
print "\nEntered $password";
[download]

Hope this helps

Martin