#!perl -w
use strict;
use Tk;

my $mw = MainWindow->new();
$mw->OnDestroy( \&ExitApplication );
MainLoop;

sub ExitApplication {
    print ("Exiting\n");
    # do some cleanup
}