Select Code to Download

open (UPLOADFILE, ">$dirpath/$filename")
            or die "bad open $dirpath/$filename\n $!";

perldoc CGI
# skip some stuff
...
     POSTs, meaning that it limits the maximum size of file
     uploads as well.  You should set this to a reasonably
     high value, such as 1 megabyte.