use Tk; my $main = MainWindow->new; $main->Button(-text => 'Hello', -command => [\&printem, "Hello\n"] )->pack; $main->Button(-text => 'End', -command => [$main => 'destroy'] )->pack; MainLoop;