Select Code to Download

sub IO::Handle::DESTROY {
  my $deadbody = shift;
...
    or close $deadbody
    or die "Cannot close $deadbody: $!";
}

{
  local *IO::Handle::DESTROY = sub { ... };
...
    ...
  } # will trigger here
}