#Read SQM-LR

use Win32::SerialPort;
# use cpan to install Win32::SerialPort like:
#  cpan
#  install Win32::SerialPort
#  exit
#
# If it fails, then search in C:\strawberry\... for serialport.pm
#   likely located in C:\strawberry\cpan\build\Win32-SerialPort-0.22-0\lib\Win32
#   then manually copy SerialPort.pm into C:\strawberry\perl\site\lib\Win32
#   create the Win32 directory if it does not exist.

# then search in C:\strawberry\... for commport.pm
#   likely located in C:\strawberry\cpan\build\Win32-SerialPort-0.22-0\lib\Win32API
#   and copy CommPort.pm into C:\strawberry\perl\site\lib\Win32API
#   create the Win32API directory if it does not exist.


$PortObj = new Win32::SerialPort ("\\\\.\\COM1", $quiet)
   		|| die "Can't open $PortName: $^E\n";    # $quiet is optional

$PortObj->user_msg(ON);
$PortObj->databits(8);
$PortObj->baudrate(115200);
$PortObj->parity("none");
$PortObj->stopbits(1);
$PortObj->handshake("rts");
$PortObj->buffers(4096, 4096);
$PortObj->write_settings || undef $PortObj;

$PortObj->write("rx\r");
sleep 1;
my $result = $PortObj->input; 
print $result;

$PortObj->close || die "failed to close";
undef $PortObj;                               # frees memory back to perl