#!/usr/bin/perl
use strict;
use warnings;
use Term::ReadPassword::Win32;
$Term::ReadPassword::Win32::USE_STARS = 1;

my $pass1 = read_password('    sftp password: ');
print "Password:$pass1,\n";
	
print "\nLoad template configuration? \n[Y/n] :";
chomp (my $ans=<STDIN>);   #doesn't wait here for input
print "ans=$ans,,,\n";