#!/usr/bin/perl -w

use strict;
use warnings;

BEGIN {
  $SIG{__DIE__} = sub {
    die @_ if !defined($^S);
    die @_ if $^S;
    print "SIG{__DIE__} handling the following error: " . $_[0];
    exit(99);
  };
}
use Storable;

print "This script sucks\n";
die "I will now die because I suck";