use MIME::Entity;
my $entity = MIME::Entity->build ( To      => $to,
                                      From    => $from,
                                      Cc      => $cc,
                                      Subject => $subject,
                                      Data    => "$body\n"
                                    );

open (MAIL, "|/usr/bin/mail");
$entity->print(\*MAIL);
close(MAIL);