eval { open my $f, "/file" or Exception::System->throw }; if ($@ and $@ == &Errno::ENOENT) { warn "file not found" }