Select Code to Download

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

MainLoop;

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

MainLoop;