Select Code to Download

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

MainLoop;

#!/usr/bin/perl
use Tk;
...
                         -fill => 'both');

MainLoop;