Select Code to Download

ppm install Win32::SerialPoint
ppm install Win32::API

use strict;
my $deckbox = "/dev/ttyUSB0";
...
  print $line;
  print DECK "\$CCPDT,1,4,0,0,3000,1,0,0,0\r\n";
}

stty -a -F /dev/ttyUSB0
speed 19200 baud; rows 0; columns 0; line = 0;
...
-ignbrk -brkint -ignpar -parmrk -inpck -istrip -inlcr -igncr icrnl ixo
+n -ixoff -iuclc -ixany -imaxbel
opost -olcuc -ocrnl onlcr -onocr -onlret -ofill -ofdel nl0 cr0 tab0 bs
+0 vt0 ff0
isig icanon iexten echo echoe echok -echonl -noflsh -xcase -tostop -ec
+hoprt echoctl echoke

require 5.003;
use Win32::SerialPort qw( :STAT 0.19 );
...
  } while ($c ne "\n");
  return $line;
}