Boy did I butcher that up - Try 2

Well there are probablly others who could give a more elegant solution, but I used smtp method of Mail::Mailer (which depends on elemants of the Net bundle) when facing sowewhat similar thing. What this does is send an e-mail composed from a terminal window. You would need to change the smtp server to yours and the from line and also the top shebang line to something more appropriate for windows. Also the To, Subject and Body variables could be changed to your heart's content.

mailtest.pl

#!/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();
[download]

Jonathan Moran (Colonel_Panic)