use Net::SMTP; 
 #Create a new object with 'new'.   
 $smtp = Net::SMTP->new("xxxx.com");
 #Send the MAIL command to the server. 
 $smtp->mail("xxx.com");
 #Send the server the 'Mail To' address.
 $smtp->to("xxx.com"); 
 #Start the message. 
 $smtp->data();  
 #Send the message. 
 $smtp->datasend("Hello World!\n\n"); 
 #End the message.  
 $smtp->dataend();
 #Close the connection to your server.  
 $smtp->quit();