print "Enter your keystrokes";
#now enter print to see print echoed back and program exit
my $keystrokes =<STDIN>;
chop $keystrokes;
if ($keystroke eq "print"){
    print $keystrokes;
    exit;
}
[download]

Not so difficult many programs 'log keystrokes' to operate their commands. Remember to chop the keystrokes to ditch newlines