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