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