#!/usr/bin/perl

use strict;
use warnings;

use lib '../lib';
use Mail::Message;

my $msg     = Mail::Message->build
 ( From          => 'rascal@stonewallgolfers.com'
 , 'Reply-To'    => 'bears@vitoassoc.com'
 , Subject       => 'Test'
 , Cc            => 'mark@overmeer.net'
 , Bcc           => 'marc@overmeer.net'

 , data => "hello\n"
#                ^^^ required!
 , file => '/etc/passwd'
);

$msg->send(via => "sendmail", to => 'root', sendmail_options => [ -f => 'me' ])
   or die "wrong";

