## snippet-begin ##
my $msg = MIME::Lite->new(
    'From'    => $param{'from'},
    'To'      => $param{'email'},
    'Subject' => 'Your Report - '.$param{'startdate'}.' to '.$param{'enddate'},
    'Type'    => 'mulitpart/mixed',
);

$msg->attach(
    'Type' => 'TEXT',
    'Data' =>
        'Here is the Report requested for dates '.$param{'startdate'}.' to '.$param{'enddate'},
);

$msg->attach(
    'Type'        => $mime_type,
    'Disposition' => 'attachment',
    'Encoding'    => 'quoted-printable',
    'Filename'    => 'provider_report'.$param{'format'},
    'Data'        => $attachment,
);

$msg->send;
## snippet-end ##