use Tk;
use strict;
use warnings; 

my $mw = MainWindow->new;
my $button = $mw->Button()->pack();
$button->configure(
	-text => 'delete me', 
	-command => sub {$button->destroy();}
);
MainLoop;