my $AFILE;
if (open ($AFILE, "<", $file)) {
  # ....
}