Ubuntu Unleashed 2013 Edition: Covering 12.10 and 13.04, Eighth Edition

Sending Mail

You can get Perl to send email in several ways. One method that you see frequently is opening a pipe to the sendmail command and sending data to it (shown in Listing 37.5). Another method is using the Mail::Sendmail module (available through CPAN), which uses socket connections directly to send mail (as shown in Listing 37.6). The latter method is faster because it does not have to launch an external process. Note that sendmail must be running on your system for the Perl program in Listing 37.5 to work.

Listing 37.5. Sending Mail Using Sendmail

#!/usr/bin/perlopen (MAIL, "| /usr/sbin/sendmail -t"); # Use -t to protect from usersprint MAIL <<EndMail;To: you\From: me\Subject: A Sample Email\nSending email from Perl is easy!\n.EndMail ...