$proto = getprotobyname('tcp'); % determine protocol for IP header socket(Socket_Handle, PF_INET, SOCK_STREAM, $proto); % create a socket $port = getservbyname('smtp'); % determine destination port $sin = sockaddr_in(7,inet_aton("localhost")); % form address info connect(Socket_Handle,$sin); % Initiate TCP connection