When I do CGI file uploads, I open the output file in my script. So I would simply open it with the filename I want.

You don't indicate how you are uploading the file, so I don't know if this advice helps you.

    # Now upload the file
    $inpfsz = 0;
    open(RESFIL, '>', $resfnm);
    binmode(RESFIL);

    while ($inpcnt=read($mntfnm,$inpbuf,2096)) {
        $inpfsz += $inpcnt;
        print RESFIL $inpbuf;
    }

    close(RESFIL);
[download]

Edit: Moved binmode outside the write loop. Noob error LOL.