Select Code to Download

#!/usr/bin/perl -w
use Tk;
...

&a($xx);
MainLoop();

#!/usr/bin/perl

...
#when the Button is being created, and Perl/Tk is trying to use the  
#return value of the sub as the value for "-command" -- not good.