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

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