if ($@) {
  ...
} elsif ($interrupted) {
  print "interrupted but didn't die. Must have hit ^C during DTOR. Sorry.\n";
  die "better late than never!\n";
}