use Term::ReadKey;

print "Password: ";
my $password = GetPass();
print "$password\n";

    sub GetPass {

        # No echo password
        ReadMode 2;
        chomp(my $opt = <STDIN>);
        ReadMode 0;
        print "\n";
        return $opt
    }