my $msg = MIME::Lite->new(
    'From'    => $param{'from'},
    'To'      => $param{'email'},
    'Subject' => 'Your Report - '.$param{'startdate'}.' to '.$param{'enddate'},
    'Type'    => 'mulitpart/mixed',
    'Data' =>
        'Here is the Report requested for dates '.$param{'startdate'}.' to '.$param{'enddate'},
);