#!perl

open(IO,"</dev/cua0") || die "$?: $@";

### ?? select(IO); $|=1; select(STDOUT);

$line="xxxxx";
print "open...\n";
#system("stty 2400 pass8 ixoff -echo> /dev/cua0");
#system("stty  2d06:1805:bb:8a3b:3:1c:7f:15:4:0:0:0:11:13:1a:19:12:f:17:16:0 > /dev/cua0 < /dev/cua0");
# system("stty  2d06:1805:bb:8a3b:3:1c:7f:15:4:0:0:0:11:13:1a:19:12:f:17:16:0:0:0 > /dev/cua0 < /dev/cua0");
system("stty 2400 pass8 raw> /dev/cua0");
print "set...\n";

while(1) {
    sysread(IO,$line,5);
    print unpack("H*",$line),"\n";
}