hi ketanm,

Maybe more than a bit too late a reply for you, but you can use the Term::ReadKey module for this. Here is how:

use strict;
use warnings;
use Term::ReadKey;

ReadMode = 'noecho';
my $password = <>;