Select Code to Download

#!/usr/bin/perl -w
use Tk;
...
                        )->pack;
 
MainLoop;

#!/usr/bin/perl
use warnings;
...
}