#!/usr/bin/perl
use strict;
use warnings;
use Email::Send;
# --------------
my $message = <<'EOS';
To: rsavage@xmail.net
From: ron@savage.net.au
Subject: Testing installation of XMail from the command line
A charm of finches.
EOS
my $sender = Email::Send->new({mailer => 'SMTP'});
$sender->mailer_args([Host => '127.0.0.1']);
$sender->send($message);
print "Message sent. \n";