[perl-win32-gui-users] Kill event?

[Peter Eisengrein]

Is there a Kill or other such event if a GUI app crashes or killed? Or
should that just be handled with %SIG it would be awfully convenient if you
could do something like:


sub Exit
{
        return -1;
}

sub Window_Terminate
{
        print "App closed gracefully.\n";
        &Exit();
}

sub Window_Kill
{
        print "Ack! My process just died!\n";
        &Exit();
}