Select Code to Download

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

unless (defined $sock_Zona) {
    $abort++;
...
    IO::Socket::Timeout->enable_timeouts_on($sock_Zona);
    $sock_Zona->read_timeout($par{read_tmo_Zona});    
}