use ControlX10::CM11;
# $serial_port is an object created using Win32::SerialPort
#     or Device::SerialPort depending on OS
# my $serial_port = setup_serial_port('COM10', 4800);


# This works fine...I can turn things on and off
#&ControlX10::CM11::send($serial_port, 'C1'); # Address device C1
#&ControlX10::CM11::send($serial_port, 'CJ'); # Turn device ON



&ControlX10::CM11::send($serial_port, 'C1'); # Address device C1
&ControlX10::CM11::send($serial_port, 'CSTATUS'); # Query C1 for its status
#&ControlX10::CM11::send($serial_port, 'CSTATUS_ON'); # Check if device is on??
#&ControlX10::CM11::send($serial_port, 'CSTATUS_OFF'); # Check if device is off??

$data = &ControlX10::CM11::receive_buffer($serial_port);
print "$data\n";
# always prints blank lines
$data = &ControlX10::CM11::read($serial_port, $no_block);
print "$data\n";
# always prints blank lines