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


##</code><code>##


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