#!/usr/bin/perl -w
use Tk;

my $mw = MainWindow->new(-title=>"#1");

$mw->Button(-text=>"Destroy Me", 
         -command=> sub { $mw->destroy })->pack;
                 
MainLoop;

print "ha ha still going\n";
<>;