Select Code to Download

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

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

print "ha ha still going\n";
<>;

exit if defined $mainwindow