#!/usr/bin/perl 

use Tk;

my $mw =  new MainWindow;
my $button =  $mw->Button('-text' => 'GO')->pack;

sleep(1);

$button->packForget();

MainLoop();