Select Code to Download

<form action="/test/test.pl" method="post" ENCTYPE="multipart/form-dat
+a">
<INPUT TYPE="file" NAME="photo">
<INPUT TYPE="SUBMIT" NAME="SUBMIT" VALUE="Submit Form">
</form>

use strict;
use CGI::Carp qw(fatalsToBrowser);
...
{ print UPLOADFILE; }
close UPLOADFILE;
}