Select Code to Download

-command => \&sub_opt,

-command => sub { \&sub_opt },

#!/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.