Select Code to Download

$SIG{__DIE__} = sub {
  print STDERR @_;
  print STDOUT ...; # whatever you want
  exit(1);
};

our $::error_context;
{
...
  # back to context "RC-E"
  ...
}