Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

draco_iii

by draco_iii (Acolyte)
on Jun 08, 2000 at 20:41 UTC ( [id://17120] : user . print w/replies, xml ) Need Help??

print "Content-type: text/html\n\n"; open(MAIL, "|/usr/sbin/sendmail -oi -t") or die print "Can't open se +ndmail: $!"; print MAIL "To: Recipient name <franklinsmith\@alltel.net>\r\n"; + print MAIL "From: Your name <support\@onlinepay.virtualave.net\r\n"; print MAIL "Subject: Mailing with Perl\r\n"; print MAIL "\r\nthis is easy.\r\n\r\n.\r\n"; close(MAIL); print "Message Sent";