##
sub send_message{
$msg = MIME::Lite->new(
From => 'someone@somewhere.com',
BCc => "$_",
Subject => 'Subject',
Encoding => '7bit',
Type => 'text/plain',
Data => "$message"
);
$msg->attr("content-type" => "text/plain");
$msg->attr("content-type.charset" => "ISO-8859-1");
$msg->attr("content-type.name" => "flowed");
$msg->send;
}
####
Content-Type: text/plain; charset="ISO-8859-1"; name="flowed"