...

{
    my $mw = ...
    ...
    ... $mw->destroy ...
    ...
    MainLoop;
}

doSomething();

sub doSomething {
    print "Hello!\n";
}