{
  no warnings 'redefine';
  sub Device::SerialPort::carp { };  # no-op
}

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