Can any perl expert help mee plz

rahul_mawana's Avatar, Join Date: Apr 2009
hello friends i m trying to send emil in perl
using,every thing is ok not error is displayed
but email is not going successfully on reciever account ,
plz can any perl expert help mee i m in big problem plz
mail is going from my computer ,my antivirus detecting it..i m free user on
i m on windows xp
this is my code
use Net::SMTP; 
print "Content-type:text/html\n\n"; 
my $debug = 1; 
$| = 1; 
#-smtp server name 
my $server = ""; 
#-a new object of the server 
$smtp = Net::SMTP -> new($server,Debug=>1); 
die "Could not connect to the server" unless $smtp; 
#-authorizing entry 
#-from and to 
$smtp->mail(""); #this is the real "from" address 
$smtp->to(""); #this is the real "to" address 
#-message send 
$smtp->datasend("To:\n"); #this is the "to" address displayed in the mail 
$smtp->datasend("From:\n"); #this is the "from" address displayed in the mail 
$smtp->datasend("Subject: Mail Test\n"); 
$smtp->datasend("This is mail test number : NET-SMTP-E-PL-ROCHESU-005\n"); 
#-quit connection to server 
plz sir help me plz

Last edited by shabbir; 13Apr2009 at 16:29.. Reason: Code blocks
shabbir's Avatar, Join Date: Jul 2004
Go4Expert Founder
Couple of things.

1. Use Code blocks for Code in posts.
2. Title should be something better than what you have posted and remember that next time.