use Tk;

use strict;
use warnings;

my $mw = new MainWindow();
$mw->protocol("WM_DELETE_WINDOW", sub {print "abc\n"; exit;});
MainLoop;