Select Code to Download

sub Paste{
print "start\n";
...

print "end\n";
}

use lib '.';

#!/usr/bin/perl

...

$t->pack(-expand => 1, -fill => 'both');
Tk::MainLoop;