#!/usr/bin/perl

use CGI;
use warnings;
use strict;
use lib "Mail::SendEasy";
use CGI::Carp qw/fatalsToBrowser/;

my $query = new CGI;
print $query->header();

print "\@INC is @INC\n<br>";

my $mail = new Mail::SendEasy(
  smtp => 'localhost' ,
  user => 'foo' ,
  pass => 123 ,
  ) ;

  my $status = $mail->send(
  from    => 'sender@foo.com' ,
  from_title => 'Foo Name' ,
  reply   => 're@foo.com' ,
  error   => 'sarah@sarahsfleeces.co.uk' ,
  to      => 'sarah@sarahsfleeces.co.uk' ,
  #cc      => 'recpcopy@domain.foo' ,
  subject => "MAIL Test" ,
  msg     => "The Plain Msg..." ,
  html    => "<b>The HTML Msg...</b>" ,
  msgid   => "0101" ,
  ) ;

  if (!$status) { print $mail->error ;}

print "it works!";