$PortObj->close || warn "Oh Noes! No close!";
undef $PortObj;