hello friends i m trying to send emil in perl
using smtp.gawab.com,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 www.gawab.com
i m on windows xp
this is my code
**************
Code:
use Net::SMTP; 
print "Content-type:text/html\n\n"; 
my $debug = 1; 
if($debug) 
{ 
$| = 1; 
open(STDERR,">>mail.txt"); 
} 
#-smtp server name 
my $server = "smtp.gawab.com"; 
#-a new object of the server 
$smtp = Net::SMTP -> new($server,Debug=>1); 
die "Could not connect to the server" unless $smtp; 
#-authorizing entry 
$smtp->auth('sender@gawab.com','password'); 
#-from and to 
$smtp->mail("me@gawab.com"); #this is the real "from" address 
$smtp->to("you@gmail.com"); #this is the real "to" address 
#-message send 
$smtp->data(); 
$smtp->datasend("To: you@gmail.com\n"); #this is the "to" address displayed in the mail 
$smtp->datasend("From: me@gawab.com\n"); #this is the "from" address displayed in the mail 
$smtp->datasend("Subject: Mail Test\n"); 
$smtp->datasend("\n"); 
$smtp->datasend("This is mail test number : NET-SMTP-E-PL-ROCHESU-005\n"); 
$smtp->datasend("\n"); 
($smtp->dataend();
#-quit connection to server 
$smtp->quit(); 
@@@@@@@
plz sir help me plz

Last edited by shabbir; 13Apr2009 at 16:29.. Reason: Code blocks