$test=$data_port->peerhost();
if (not defined $test){close_data_port;}