sub my_exit {
  my $value = shift;
  $saved_value = $value;
  exit $value;
}