$file="c:\\file.txt";
open(FILE,"<$file") || do {
  {local( $| )= 1;
    print "Error xxx\n";
    print "Hit <ENTER> to exit.\n";
    my $resp= <STDIN>;
  }# end local
  exit;
  }# end do
  @array=<FILE>;
  close(FILE) || die "close0: $!\n";