sub getc { ord( substr($buf,0,1,'') ); }