#!/usr/bin/perl -w
#
#  Test of local copy of Mail::Sendmail (renamed as Postal::Dispatch
#  to be sure it works on its own :-)).
#

use strict;
use warnings;

use Postal::Dispatch;

my %mail = (
    To      => 'liverpole@myISP.net',
    From    => 'liverpole@golux.com',
    Message => 'Hello to myself from Postal::Dispatch',
);

sendmail(%mail) or die $Postal::Dispatch::error;

print "OK. Log says:\n", $Postal::Dispatch::log;

##</code><code>##

    'smtp'    => [ qw( localhost ) ]

##</code><code>##

    'smtp'    => [ qw( mail.myISP.net ) ]