sub BEGIN

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