http://www.perlmonks.org?node_id=907200


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