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

##</code><code>##

if (open my $fh, "<", "/etc/shadow")
{
  # do stuff.
  close $fh;
}