Select Code to Download

<FORM ENCTYPE="multipart/form-data" ACTION="/cgi-bin/upload.pl" METHOD
+="POST"> Please choose directory to upload to:<br> <SELECT NAME="dir"
+> <OPTION VALUE="images">images</OPTION> <OPTION VALUE="sounds">sound
+s</OPTION> </SELECT> <p> Please select a file to upload: <BR> <INPUT 
+TYPE="FILE" NAME="file"> <p> <INPUT TYPE="submit"> </FORM>

#!/usr/bin/perl -CS
use CGI::Carp qw(fatalsToBrowser);
...

print $cgi->header();
print "$file has been successfully uploaded... thank you.\n";