 
 
 
 
 
   
           $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