That did the trick. I'm learning from the O'Reilly Perl Bookshelf series. They never make this clear in the gui building chapters. Thanks! Merrick

use Tk;

choice();
# After the widget vanishes
# the program continues here ...
print "Success!!\n";


sub choice{
     $top = MainWindow -> new();
     $frame = $top -> Frame() -> pack();
     $button = $frame->Button (-text => 'Kill',
                               -command => sub{$top -> destroy()}
                               )->pack();
     MainLoop;
}
[download]