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