eval {
    @ARGV = qw(/nowhere);
    while(<>) {}
};
if($@) {
    print "There was an error!\n";
}