Select Code to Download

use Device::SerialPort;
$port = new Device::SerialPort ( "/dev/ttyS0");
...
$port->databits(7);
$port->stopbits(1);
$port->parity("odd");

[root@linux5 root]# perl -c tt.pl
tt.pl syntax OK

[root@linux5 root]# perl -W tt.pl
        (in cleanup) Can't call method "setcflag" on an undefined valu
+e at /usr/lib/perl5/site_perl/5.8.0/Device/SerialPort.pm line 541 dur
+ing global destruction.