Select Code to Download

<form method="POST" enctype="multipart/form-data" action="url_to_scrip
+t.pl?upload"><input type="hidden" name="directory" value="$cur"><br>
  <input type="file" name="upload" size="20"><br><input type="submit" 
+value="send"><input type="reset" value="reset">
</form><br><br>

sub upload {
    read (STDIN, $in, $ENV{'CONTENT_LENGTH'});
...
  }
  filemgr($parse{directory}); # Print directory tree
}