Hopefully this will give you some ideas.

print "in\n";
eval ("die 'boing'");
print "out\n";
print $@;
[download]

see perldoc -f eval for more info

Since so many people have come up with the same answer, I'd like to tack on a question : Is dying the appropriate way for (it seems, I'm not familiar with this package) a file processing package package to behave?