Help for this page

Select Code to Download

Select or download this

    print "Content-Type: text/html\n\n";
    print "<!DOCTYPE html>\n";
...
    print "\$filename             = [$filename]<br />\n";
    print "\$upload_dir/\$filename = [$upload_dir\/$filename]<br />\n"
+;
    print "    </p>\n";

Select or download this

    # Needed to avoid dependence on C:\TEMP being world read+write
    BEGIN { $TempFile::TMPDIRECTORY = './'; }