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

 open(HIPORT,"eq010125.txt");