Select Code to Download

#!/usr/local/bin/perl
use strict;
...
    

MainLoop;

my $button=$top->Button(
   -text=>'Print Value',
...
    print "The Current Month is $month\n";
    }