11 July 2006

#!/usr/local/bin/perl -w
use Net::SMTP;
$recipient = 'somebody@somewhere.com' ;
$from	   = 'not.me@ademar.name' ;
$smtp = Net::SMTP->new('smtp.ademar.name', 
			Timeout => 60,
			Debug   => 1);
## smtp server requires authentication 

$smtp->datasend("To: $recipient\n");
$smtp->datasend("Subject: test message\n");
$smtp->datasend("A simple test message\n");


Something funny, while testing the above script, my Postfix server complained with the following message -

221 Error: I can break rules, too. Goodbye. - i LOLed.

blog comments powered by Disqus