Select Code to Download

my $mw = MainWindow->new;
my $b1 = $mw->Button(-text => 'Go', -command => sub{&go})->pack();
...
    while(<H>) { $text->insert('end',$_); }
    }
}

#!/usr/bin/perl
...
    $text_box->delete('0.0','end');
}