My CGI File Upload Test

print "Content-Type: text/html\n\n"; print "\n"; print "\n"; print " \n"; print " My CGI File Upload Test\n"; print " \n"; print " \n"; print "

\n"; print "\$upload_dir = [$upload_dir]
\n"; print "\$filename = [$filename]
\n"; print "\$upload_dir/\$filename = [$upload_dir\/$filename]
\n"; print "

\n"; ##

##

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