#!/usr/bin/perl
use warnings;
use strict;

use lib '../lib';

use Mail::Message;

my $m = Mail::Message->build
 ( To => 'to'
 , Cc => 'cc'
 , Bcc => 'bcc'
 , data => "body\n"
 );

my $k = $m->bounce; #(To => 'bounce');

$k->print;

