BEGIN {
  $SIG{__DIE__} = sub { print "OOPs die\n"; require Carp; Carp::confess(@_) };
  $SIG{SEGV} = sub { print "OOPs segv\n";require Carp; Carp::croak(@_) }
  };