use IO::Prompt;
my $password = prompt 'Password: ', -echo => '*';

print "[$password] eingegeben.\n";