Help for this page

Select Code to Download

Select or download this

# best solution:
$socketA = new IO::Socket::INET(
    PeerAddr => $A_box_address,
    PeerPort => $A_box_port,
    Proto => 'tcp',
) or $skipA = 1;