use warnings;
use FileHandle;

$fh = new FileHandle "file", "r";
if (defined $fh) {
  print <$fh>;
  undef $fh;       # automatically closes the file
}

$fh2 = new FileHandle "file", "r";
if (defined $fh2) {
  print <$fh2>;
  close $fh2;       # automatically closes the file
}

print <$fh>;
print <$fh2>;