126.000000 2003126  0.000000 -3.831776e-02
126.000692 2003126  0.016600 -3.084112e-02
126.001388 2003126  0.033300 7.476636e-03
126.002083 2003126  0.050000 3.644860e-02

##</code><code>##

#!/usr/bin/perl -w
use strict;


use FileHandle;


my @data; my $i=0;

print "Loading file: data.dat ......\n";
my $infile =  "C:/plot/coveCH1.dat";
open(IN, "$infile");

my $line;
while (defined($line = <IN>)) {
$data[$i]=$line;
$i++;
}


print "$data[1]\n";

my $bin=pack("u", "@data");

my $OUT= new FileHandle;
open ($OUT, ">c:/plot/data.bin");
print $OUT $bin;
$OUT->close;

my @dataU=unpack("u",$bin);

print "$dataU[1]\n";