$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