my $upload = $r->upload("filename");
    my $fh;
    open FHANDLE, ">$filepath";
        $fh = $upload->fh();
        binmode FHANDLE;
        print FHANDLE <$fh>;
    close FHANDLE;