#!/usr/bin/perl -w
use strict;
use lib '../lib';

use Mail::Message;


my $message = Mail::Message->build
 ( From => 'me'
 , To   => 'markov'
 , Subject => 'just some subject'
 );
                                                                                
$message->head->set(To => 'solutions@overmeer.net');
$message->send
 ( hostname   => 'localhost'
 , log        => 1
 , via        => 'sendmail'
#, via        => 'smtp'
#, smtp_debug => 1
 );
