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});    
}