#!perl # should do what SpamAssasin does my $die = shift @ARGV; eval { die $die if $die; exit 0; }; if ($@) { warn $@; exit 70; }