Help for this page

Select Code to Download

Select or download this

use IO::Socket::INET;
$sock=IO::Socket::INET->new(PeerAddr => 'machinename',
     PeerPort => $portnumber,
     Proto => 'tcp');

Select or download this

use IO::Socket::INET;
$sock=IO::Socket::INET->new(Listen => 1,
...
    LocalPort => $portnumber,
    ReuseAddr => 1,
    Proto => 'tcp');