foreach my $upload ($r->upload()) {
        my $upload_fh = $r->upload($upload)->fh;
        my $contents;

        while(<$upload_fh>) {
                $contents .= $_;
        }
        close($upload_fh);

        # write $contents to the file here...
}