{
  no warnings 'redefine';
  local *Device::SerialPort::carp = sub { 
    # no-op
  };
  $PortObj = new Device::SerialPort($port, 1) or next; 
}
# carp works again