#!/usr/bin/perl
use strict;
use warnings;
use Mail::Mailer;

my $mailer = Mail::Mailer->new("sendmail");

print "\nRecipient Address:";
chomp (my @to = split /;/,<STDIN>);

print "\nFrom:";
chomp (my $from = <STDIN>);

print "\nSubject:";
chomp(my $subject = <STDIN>);

print "\nContent (END to end):";

my $content;
while (1) {
    my $line = <STDIN>;
    last if $line eq "END\n";
    $content .= $line;
}

$mailer->open( {
    From    => $from,
    To      => \@to,
    Subject => $subject
});

print $mailer $content;
close($mailer);