#!/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";

##</code><code>##

Can't locate Log/Agent.pm in @INC (@INC contains: /etc/perl /usr/lib/perl5/site_perl/5.8.5/i686-linux-thread-multi /usr/lib/perl5/site_perl/5.8.5 /usr/lib/perl5/site_perl /usr/lib/perl5/vendor_perl/5.8.5/i686-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.5 /usr/lib/perl5/vendor_perl /usr/lib/perl5/5.8.5/i686-linux-thread-multi /usr/lib/perl5/5.8.5 /usr/local/lib/site_perl .) at (eval 1) line 2.