in reply to TK close window int signal

$mw->protocol('WM_DELETE_WINDOW',[\&stop]);

sub stop{
$mw -> destroy;
}

[download]

In Section Seekers of Perl Wisdom