my $fh; open $fh, "<", "/etc/shadow" or $fh = undef; if ($fh) { # do stuff }