#!/usr/bin/perl -w

use Mail::Mailer;

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

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

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

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

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

print $mailer $body;
$mailer->close();