my $sock_Zona = IO::Socket::INET->new(
    PeerAddr => $par{addr_Zona},
    PeerPort => $par{port_Zona},
    Proto => "tcp",
    Type => SOCK_STREAM,
    Timeout => $par{conn_tmo}
);

##</code><code>##

unless (defined $sock_Zona) {
    $abort++;
    $sock_Zona = -1;
    ABORT("Zona se ne javlja: $!");
} else {
    IO::Socket::Timeout->enable_timeouts_on($sock_Zona);
    $sock_Zona->read_timeout($par{read_tmo_Zona});    
}