sysread(COM,$buf,1);
unpack("C*",$buf);