$port->close;
undef $port;
untie *$handle;