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;
}