Perl で、メールを送信する方法

open で /usr/sbin/sendmail を開いてそのハンドル SEND を使って print 文で処理する方法もある。

#!/usr/bin/perl

our $SENDMAIL    = '/usr/sbin/sendmail';
our $ADMIN_EMAIL = 'support@twinkle.cc';
our $X_MAILER = 'Twinkle Networks Auto Sendmailer ver.0.1';

my $mailto  = 'someone@mailto.com';
my $subject = 'タイトル';
my $mail_body = 'メール本文';

open(SEND, "| $SENDMAIL -t")
            || &error("Can\'t sendmail to $mailto: $!");	# for exim

print SEND "To: $mailto\n";
print SEND "From: $ADMIN_EMAIL\n";
print SEND "Subject: $subject\n";
print SEND "X-Mailer: $X_MAILER\n";
print SEND "Content-Transfer-Encoding: 7bit\n";
print SEND "Content-Type: text/plain\n\n";
print SEND $mail_body;

close(SEND);

1;