#!/usr/local/bin/perl -w     # GOOD!

 open(HIPORT,"eq010125.txt");


##</code><code>##

open(HIPORT,"eq010125.txt") or die "Couldn't open file, $!";

##</code><code>##

$file = <HIPORT>;

##</code><code>##

@file = <HIPORT>;