Select Code to Download

  open (OUTPUT,">$outfile") || die "Cannot open image file: $!";

...
    print "File size is limited to ". $maxsize ."KB<br>$koko";
  }

<form name="additem" method="post" action="$ENV{'SCRIPT_NAME'} enctype
+="multipart/form-data">
<input type="file" name="outfile" size="10" class="submit">
<input type="submit">
</form>