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