#!/usr/bin/perl 
use 5.010;
use Email::MIME;
my $message = Email::MIME->create( header_str => ...