Select Code to Download

#!/usr/bin/perl
use Tk;
...
$m->Button(-text=>"Go",-command=>\&go)->pack;

MainLoop;