Select Code to Download

use Tk;
use strict;
...
   my $msg = shift;
   print "$msg\n";
}

pressed 1
pressed 2
pressed 3
pressed 4