Select Code to Download

<form method=post enctype="multipart/form-data"> # multipart/form-data
+ is necessary for uploads
...
<input type="file" name="file"> # This defines an upload field

# Create new Mail object.
my $mail = MIME::LITE->new(
...
open (MAIL, "| /usr/sbin/sendmail -t -i") or die $!;
$mail->print(\*MAIL);
close MAIL;