eval { Grab($filename); return 1; } or do { my $err = $@; return if $err =~ /File not found/; die $err; };