Slight changes required under AIX...

Change

  my( $av, $c, $fs ) = @F[3, 4, -1]; 

to

  my( $av, $c, $fs ) = @F[5, 3, -1];
[download]