# after getting $file_handle

my $file = "some_name"; # pick a name
open F, ">" . UPLOAD_DIR . "$file" or die "$!";
while (<$file_handle>) {
    print F;
}
close F;
close $file_handle;