Select Code to Download

<form action="upload.cgi" enctype="multipart/form-data" method="POST">
<input type="file" name="file">
<input type="submit">
</form>

#!/usr/bin/perl

...
open(TEMP,">temp.jpg");
print TEMP $file;
close(TEMP);