Help for this page
use Tk; use strict; ... my $msg = shift; print "$msg\n"; }
pressed 1 pressed 2 pressed 3 pressed 4