Select Code to Download

use strict;
use Tk;
...
}); 

MainLoop;

use strict;
use Tk;
...
sub Submit {
   print "form submitted\n";
}

use strict;
use Tk;
...
   print "form submitted\n";
}