#!/usr/local/gnu/bin/perl

$template="i8 i2 i2 i2 i2 i2 i2 i2 i2 i2 i2 i2 i2";
$recordsize=length(pack($template, ( )));

open(FILE,"$ARGV[0]") or die "unable to open file: $!"; 

while(read(FILE,$record,$recordsize)) {
  @fields = unpack($template,$record);
  print $fields[0], "\n";
}

close(FILE);

exit 0;