# 11-17-2009....idea from perlmonks...trap a 'die'...it may work! eval {$doc = CAM::PDF->new($filename)}; if ($@) { print "skipping $filename because of parseAny\n"; print EXTRA "bad parseAny for $filename\n"; print SKIPPED_FILE_LIST "bad parseAny for $filename\n"; return 1; }