syswrite( $SERIALPORT, pack 'C', 4 );