use IO::Socket;

$server = new IO::Socket;
$proto = getprotobyname('tcp');
$server->socket(PF_INET, SOCK_STREAM, $proto);
$internet_addr = inet_aton($myIPaddress);
$paddr = sockaddr_in(135, $internet_addr);