|
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";