[gargle@vlds204 reporting]$ cat ./test.pl 
#!/usr/bin/perl

use Modern::Perl;
use Term::Prompt;

my $mypass = prompt( 'x', "password:", '', '' );

say "alfa";
say "beta";