Select Code to Download

sub are_baudrate {
    my $self = shift;
...
    }
    return keys(%{$self->{"_L_BAUD"}});
}

unless ($Port = new Win32::SerialPort($PortName)
  and $Port->are_baudrate(115200)
...
  );
  exit
}