my $fn = @ARGV[0];

open(my $fh, '<', $fn)
    or die("Can't open \"$fn\": $!\n");

binmode($fh);

my @recs;
while (read($fh, my $rec, 158)) {
    push @recs, $rec;
}