#!c:/perl/bin/perl -w
$|++;

use strict;
use Mail::Sender;

$Mail::Sender::NO_X_MAILER = 1;
$Mail::Sender::NO_MESSAGE_ID = 1;

open my $log, '>>', 'c:/logcmd.log'
   or die "open failed: $!";

my $email = Mail::Sender->new( {
   smtp    => 'smtp.somewhere.net',
   auth    => 'LOGIN',
   authid  => 'someuser',
   authpwd => 'somepasswd',

   on_errors => 'die',
   debug     => $log
} );

$email->Open( {
   from    => 'MyName <me@myserver.com>',
   to      => 'TheirName <them@theirserver.com>',
   subject => 'Some Subject'
} );

$email->SendEnc(<<"END_EMAIL");
This is the body of the email message. Yes, that is right.
foo bar baz.... blah.

END_EMAIL

$email->Close();

close $log;