{
        no strict;
        while (my $bytesread = read($filename,$buffer,1024))
        {
           print FILE $buffer;
        }
}


##</code><code>##

$fh = $query->upload('uploaded_file');
            while (<$fh>) {
                  print;
            }