#!/usr/bin/perl -w
use strict;
use Mail::Sendmail;

my %mail = (
  from    => 'john <sender@ser1.ser2.edu>',
  smtp    => 'smtpserver.edu',
);

print "To: ";
chomp($mail{to} = <STDIN>);

print "\nSubject: ";
chomp($mail{subject} = <STDIN>);

print "\nBody:\n";
$mail{message} = <STDIN>;

sendmail(%mail) or die $Mail::Sendmail::error;
print "OK. Log says:\n", $Mail::Sendmail::log;