in reply to Mime::Lite prematurely ends the script

eval {
   die "shutting you down";
   1;
} or print "Tried to shut me down: $@\n";
__END__
Tried to shut me down: shutting you down at - line 2.

[download]

In Section Seekers of Perl Wisdom