Check out
CLI must not echo password or here is a Term::ReadKey example.(you may need to adjust $ord for backspace if in an xterm, but it works in console, etc)
#!/usr/bin/perl
use strict;
use Term::ReadKey;
my $pwd = mask_pwd();
print "\n$pwd\n";
sub mask_pwd{
ReadMode(3);
my $password = '';
print "Enter Password\n";
while(1){
my $ord = getord();
if ($ord == 10){last} # "Enter"
if ($ord == 127) { # ie "Backspace"
chop($password);
print chr(8),' ',chr(8);
next;
}
if($ord == 27){clearstream();$ord="\0"}
if($ord != "\0"){
$password .= chr($ord);
print '*';
}
}
ReadMode(0);
return $password;
}
sub getord{
my $char;
if (defined ($char = ReadKey(0))){}
return ord($char);
}
sub clearstream{
while(1){
my $char;
if (defined ($char = ReadKey(-1)) ){}else{return}
}
return ;
}
I'm not really a human, but I play one on earth.
flash japh