sub BEGIN

sub ctrl_c_handler
return;

sub OpenDevice
my ($DeviceName, $Port) = @_;
return $dev;

sub help