Help for this page

Select Code to Download


  1. or download this
    #!/usr/local/bin/perl -w     # GOOD!

 open(HIPORT,"eq010125.txt");
  2. or download this
    open(HIPORT,"eq010125.txt") or die "Couldn't open file, $!";
  3. or download this
    $file = <HIPORT>;
  4. or download this
    @file = <HIPORT>;