This will work for simple scripts, at least. Not sure how scalable it is.

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

die_with_code( 3, "yowch!\n" );
[download]