Select Code to Download

    # get the current attributes
    $ok = $self->{TERMIOS}->getattr($self->{FD});
...
        undef $self;
        return undef;
    }

{
  no warnings 'redefine';
...

...
    $PortObj = new Device::SerialPort($port, 1) or next;