use Tk;

my $main = MainWindow->new;
$main->Button(
   -text => 'Submit',
   -command => [\&Submit]
)->pack;

MainLoop;

print "Script continues after mainloop terminated\n";

sub Submit {
   print "Submit called\n";
   $main->destroy;
}