my $exited_normally = 0;

...

# At the end of the progam.
$exited_normally = 1;
END {
   return if !$exited_normally;
   ...
}