Not destroy, but something like this: (code is tested with 5.8.4 on windows 2000)

use Tk;

use strict;
use warnings;

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