Select Code to Download

#!/usr/bin/perl

...
'Yellow', -command, sub{system('xterm'=>'')}, -text, 'Magic 1' ) ->
pack();
MainLoop;

#===vptk end===< DO NOT CODE ABOVE THIS LINE >===
FELIX-XP-~> test.pl
...
Background Error: panic: MUTEX_LOCK (45) [op.c:354] at
/usr/lib/perl5/vendor_perl/5.8/cygwin/Tk.pm line 406.
panic: MUTEX_LOCK (45) [op.c:354].