Kind of Late :( I'm sorry. But this was your solution.

Code:
my $wm = MainWindow->new();
$wm->Button(-text => "Push Me", -command => \&new)->pack();

MainLoop();

sub new {
$wm->Button(-text =>"New Button", -command => sub { exit(1); })->pack();
}
Cheers :)