Select Code to Download

'.tmpfiles' => {
                '3' => {
...
                'name' => bless( do{\(my $o = '/usr/tmp/CGItemp10026')
+}, 'TempFile' )
                        }
               },

'file' => [
                             bless( \*{'Fh::fh00001C%3A\\stu\\putty\\s
+tu.txt'}, 'Fh' )
                           ],

[Wed Dec 11 15:54:14 2002] new_upload.cgi: Use of uninitialized value 
+in die at <<path to script>>/new_upload.cgi line 70.
[Wed Dec 11 15:54:14 2002] new_upload.cgi: Died at <<path to script>>/
+new_upload.cgi line 70.
:$

  while($bytes=(read($fh, $buffer, 1024)or die $q->cgi_error()))
  {
    $bytes_read += $bytes;
    print OUTFILE $buffer;
  }