#!/usr/bin/perl -w

use strict;
use warnings;

BEGIN {
  $SIG{__WARN__} = sub { print $_[0]; };
  $SIG{__DIE__} = sub { print $_[0]; exit(99); };
}

use Storable;

print "This script sucks\n";