Help for this page
#!/usr/local/bin/perl use strict; ... MainLoop;
my $button=$top->Button( -text=>'Print Value', ... print "The Current Month is $month\n"; }