Help for this page

Select Code to Download

Select or download this

use IO::Socket::INET qw( );

...
    PeerHost => 'axtcnr:6540',
)
    or die("Can't connect to axtcnr:6540: $!\n");