#!/usr/bin/perl -w

$filename = "data.spc";
$recsize = 4;
$x = 1;
$i = 0;

open (FILE, "<", "$filename") or die "$!";

while (read(FILE, $buf, $recsize) == $recsize) {
  @values = unpack("V", $buf);
  @datapoint = splice(@values, 0, $x);
  $i += 1;
}

printf ("%d\n",$i); #No. of loops performed
unlink "temp.dat";
open (OUTFILE, ">", "data.dat");
foreach $datapoint (@datapoint){
    printf OUTFILE ("%d\n",$datapoint);
}
close OUTFILE;