#!/usr/local/bin/perl -w
###########################################
# sudo-simulator simulator
###########################################
use strict;
use Term::ReadKey;

$|=1;
print "$0\n";

for(1..2) {

    my $user = "womper";

    ReadMode 2;
    print "[sudo] password for $user:";
    my $pw1 = <STDIN>;
    ReadMode 1;
    
    print "Got it ($_) [$pw1].\n";
    sleep 1;
}
