{
  my $exit_code = 0;
  END { $! = $exit_code }
  sub die_with_code { $exit_code = shift; die @_ }
}

die_with_code( 3, "yowch!\n" );