#!/bin/perl
use Device::SerialPort qw( :PARAM :STAT 0.07 );

sub config
{
    my $ser = new Device::SerialPort('/dev/ttyS0');

    $ser->baudrate("19200");
    $ser->handshake("rts");
    $ser->parity("none");
    $ser->databits("8");
    $ser->stopbits("1");
    $ser->alias("bbs");
    
    $ser->save("bbs-params");
    $ser->write_settings();
}

## main ##
$port = tie(*SERIALPORT, 'Device::SerialPort',"bbs-params") || die "can't open port .. run -configure";

$port->dtr_active(F);
$port->rts_active(F);

untie *SERIALPORT;