$fh = $query->upload('FILE');
     while (<$fh>) 
{
           $filecontents .= $_;
     }

##</code><code>##

my $file = $query->param('FILE');

my ($bytesread,$buffer,$filecontents);
while ($bytesread = read($file,$buffer,1024))
   { 
      $filecontents .= $buffer;
   }
undef $bytesread; undef $buffer;