Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
    open my $secIn, '<', \$secFile;
    print "Sec: $_" for <$secIn>;
}
  2. or download this
    Prim: Alex 3 44
Prim: Barry 2 44
...
Sec: James 29 45
Sec: Drew 19 54
Sec: Drew 139 154