Override die in Perl and still return correct exit code on Windows -

on windows, want execute when script dies. below block didn't help; think it's because windows don't support signals.

$sig{__die__} = sub {     qx(taskkill /f /im telnet.exe);     core::die @_; }

then tried this:

end {     qx(taskkill /f /im telnet.exe);     exit $exit_code; }

it performed taskkill, exited exit code 0. need propagate exit_code further processing based on it.

end blocks can set $? control exit value.

end {       qx(taskkill /f /im telnet.exe);       $? = $exit_code; }

Alconcel