Select Code to Download

$msg = new Mail::Send;
$msg->add('From', $rs->{'em_from'} );
...
$rs->{'em_body'} =~ s/\n/\r\n/sg; # convert line-endings for windows m
+achines.
print $fh $rs->{'em_body'};
$fh->close(); # completes message and sends it

X-Final-To: bccaddress@site.com