use HTML::Entities;

    open MAIL, q(|/usr/lib/sendmail -t -f 'bar@bar.com')
			or die 'cant open sendmail';

    print MAIL "From: foo <bar\@bar.com>\n";
    print MAIL "To: boo <far\@far.com>\n";
    print MAIL "\n";
    print MAIL encode_entities($body),"\n";
    print MAIL ".\n";
    close MAIL;