#!/usr/bin/perl use Tk; $mw=tkinit; if (0) { if (fork == 0) { exec "sh", "-c", "while true; do echo kill -9 $$; sleep 1; done"; die $!; } } else { system(q{sh -c 'while true; do echo kill -9 $$; sleep 1; done' &}); } MainLoop; END { warn "Exiting main" }