use strict;
use warnings;
$/ = "\n";
my $file = 'NewLogFile0.gpl';
open(FILE,$file);
while( read(FILE,my $out, 56, 0){
unpack("L2d5L2",$out);
print $out;
}
close FILE;
exit