BEGIN {
  $main::SIG{__DIE__} = \&OurCommon::handle_fatal_error; # new line
  ...
  package OurCommon;
}
# outside begin and outside a sub