Perl: Sendmail
Jump to navigation
Jump to search
- ! /usr/bin/perl -w
- Filename: sendmail.pl
- Description: Simple Send Mail Script
- Usage: perl sendmail.pl [recipients] [subject] [message]
use strict; use Mail::Sendmail;
- Print out usage
if ($#ARGV != 2) {
print "Usage: send_mail addresses message\n"; exit;
}
my $recipients = $ARGV[0]; my $subject = $ARGV[1]; my $message = $ARGV[2];
- Send Mail
my %mail = (
smtp => "relay.cig.mot.com", to => $recipients, cc => "", bcc => "", from => "sender\@company.com", subject => $subject, message => $message
);
sendmail(%mail);
exit;
