#
# Control access to an ICOM radio
#

use vars qw( $ob $port );
use Device::SerialPort;
use sigtrap qw(INT SIGINT);
$ob = new Device::SerialPort ("/dev/ttyUSB0", 1);