Я попробовал следующий код
use strict;
use warnings;
use Term::ReadPassword::Win32 qw(read_password);
my $pw = read_password('pw: ');
print "pw $pw\n";
my $x = <STDIN>;
print "x: $x\n";
Он действительно запрашивает пароль и не выдает ответ эхом, но затем пропускает