my $port = $self->{center}{floor}{room}{bay}{rack}{unit}{port};
unless ( --$port->{timecount} ) {
    unless ( $port->{transmitted}
        or   $port->{received} ) {
            close( $port->{handle} );
    } else {
        $port->{timecount} = $port->{timeout};
        $port->{transmitted}
        = $port->{recieved} = 0;
    }
}