I like Mail::Sendmail.
#!/usr/bin/perl -w use strict; use Mail::Sendmail; my %mail = ( from => 'john <sender@ser1.ser2.edu>', smtp => 'smtpserver.edu', ); print "To: "; chomp($mail{to} = <STDIN>); print "\nSubject: "; chomp($mail{subject} = <STDIN>); print "\nBody:\n"; $mail{message} = <STDIN>; sendmail(%mail) or die $Mail::Sendmail::error; print "OK. Log says:\n", $Mail::Sendmail::log;
In reply to Re: Mail::Mailer question
by Mr. Muskrat
in thread Mail::Mailer question
by skyler
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |