my $fh = $query->upload('uploaded_file');

# ...

while(<$fh>) {
    # ...
}

##</code><code>##

my $data = do { local $/; <$fh> };