if ($TESTING) {
    use Test::MockObject;
    $port = Test::MockObject->new();
    $port->mock ('write',
                 sub {my $arg=shift;print "wrote $arg to the serial port\n"} 
);
}
else {
    $port = new Device::SerialPort("/dev/$opt_p");
}