#! /usr/bin/perl 

use warnings;
use strict;
use lib './lib';

use Mail::Mailer::smtp::From;
use Mail::Send;

my $msg= Mail::Send->new;
$msg->to('An@Address');
$msg->subject('Test Code');
my $fh = $msg->open('smtp::From',
                    Server => 'smtp.comcast.net',
                    Auth => [ 'user','pass' ],
                    Port => 587,
                    From => 'me@comcast.net',
                    Debug => 1 );
print $fh "This is a test message.\n";
$fh->close
    or die("Could not send message.\n");