my $PortName = '/dev/ttyS16' ;
my $PortObj = new Device::SerialPort($PortName) || die "Can't open $PortName: $!\n";

$PortObj->databits(8);
$PortObj->baudrate(19200);
$PortObj->parity("none");
$PortObj->stopbits(1);
#$PortObj->flowcontrol("none");

$PortObj->write('asic_rst 0');
my ($r1, $saw1) = $PortObj->read(255) ;

$PortObj->write("asic_rst 1");
my ($r2, $saw2) = $PortObj->read(255) ;

$PortObj->close || die "failed to close";
undef $PortObj;