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

use lib '.../lib';

use Mail::Message;

my $msg  = Mail::Message->build;
$msg->head->set(From => 'destination');
print $msg->sender->format, "\n";
