use Mail::Sendmail;

# Set up some default configuration
unshift @{$Mail::Sendmail::mailcfg{'smtp'}} , 'smtp.comcast.com';
$Mail::Sendmail::mailcfg{'from'} = "test\@aol.com";

my %mail = (
  To => "mytestaddress\@aol.com",  #real add changed for this ex.
  Subject => "Test 1",
  Message => "Test number 1",
);

sendmail( %mail ) or print "Error: $Mail::Sendmail::error\n";
print "Sent Successfully";