use Mail::Mailer;

    my $mailer = new Mail::Mailer 'sendmail';

    $mailer->open( {
        To => 'foo@bar.com',
        Subject => 'Report' } );

    ## Create report in scalar $report... then write it.
    print $mailer $report;
    $mailer->close;