use Mail::Mailer;

print "\nTo: ";
$dest = <>;
chomp $dest;

print "Subject: ";
$subj = <>;
chomp $subj;

print "\nBody:\n";
$body = <>;

$mailer = Mail::Mailer->new( 'smtp', Server => 'pilot.msu.edu' );

$mailer->open( {
    From    => 'Mr Grits <moranjon@pilot.msu.edu>',
    To      => $dest,
    Subject => $subj,
} )
    or die "mailer->open failed: $!\n";

print $mailer $body;

$mailer->close;