http://qs321.pair.com?node_id=572472
Category: E-Mail Programs
Author/Contact Info
Description: hi monks
i wrote small script to send mail from my unix box.
#!/usr/bin/perl
use Mail::Mailer;
$mailer=Mail::Mailer->new("sendmail");
print "\nRecipient Address:";
$too=<>;
chomp($too);
@to=split(";",$too);
print "\nSubject:";
$mail_subject=<>;
chomp($mail_subject);
print "\nContent:";
$mail_content=<STDIN>;
$mailer->open( { 
From    => $from,
To      => \@to,
Subject => $mail_subject
});
print $mailer $mail_content;
close($mailer);