#!/usr/bin/perl
use strict;
use warnings;
use Device::SerialPort;


local $| = 1;


## Set up the serial port...
my $port = Device::SerialPort->new("/dev/ttyS0");
$port->baudrate(19200);
$port->databits(8);
$port->parity("none");
$port->stopbits(1);
$port->handshake("none");
$port->stty_icrnl(1);
$port->write_settings;
#!/usr/bin/perl
use strict;
use warnings;
use Device::SerialPort;