my $sampsPerChanWritten= pack("N4",0,0,0,0);