use Term::ReadKey;
ReadMode( "noecho", STDIN );
print "Enter pwd please :";
my $in;
$in = <>;
chop $in ;
print "\n" ;
ReadMode ("original", STDIN) ;

print "\nYou said $in!\n";