#!/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);