Select Code to Download

my $PortName = '/dev/ttyS16' ;
my $PortObj = new Device::SerialPort($PortName) || die "Can't open $Po
+rtName: $!\n";
...

$PortObj->close || die "failed to close";
undef $PortObj;

r1 = 8
$saw1 = a®k}r.\x17‚

r2 = 8
$saw1 = a®k}r.\x17Š

#!/usr/bin/perl -w
use strict;
...
 
$serial_port->close || die "failed to close";
undef $serial_port;                               # frees memory back

 
1: 0
2: 5
3: 0
4: 0
Response is: 1ªó5├