in reply to Perl/TK Main Window Destroy
$SIG{ALRM} = sub { exit 0 }; # trap an alarm and assign a sub to exit alarm 60; # trigger an alarm after 60 seconds MainLoop; [download]
Hope that helps.
-- Foxcub #include www.liquidfusion.org.uk