Select Code to Download

my $mail = MIME::Lite->new(Subject => 'some_subject',
                           Type    => 'multipart/mixed');
...
                 Filename    => $fileName,
                 Disposition => 'attachment');
}

# necessary file opening code here...
print SOME_FILEHANDLE $mail->as_string;