#!/usr/bin/perl -w
use strict;
use CComms;

my $comms;
my $ret;

$comms = new CComms ( "/dev/ttyS0" );

$ret = $comms->Open ( 19200 );

undef $comms;