$$buffer = substr($tmpbuf,0,$reclen+4);