Select Code to Download

eval {
  local $SIG{INT} = sub { die "SIGINT\n" };
...
  kill 'INT', $$ if $@ eq "SIGINT\n";
  die $@;
}

sub DESTROY { print "DESTROY\n"; die; print "HUH\n"; }
{ my $x = bless []; }
print "DONE\n";

DESTROY
DONE