my $mode = "0755";
    
my $localfile = "$uploaddir/$filename";

    # open a new file and transfer bit by bit from what's in the buffer
    open( SAVED, ">>$localfile" );  
    while ( my $bytesread = read( $remotefile, my $buffer, 1024 ) ) {
        print SAVED $buffer;
    }
    close SAVED;

    chmod $mode, "$localfile";        # or die "can't chmod: $!";

##</code><code>##

my $mode = "0755";
    
my $localfile = "$uploaddir/$filename";
my $newfile   = "$uploaddir2/$filename";

    # open original file
    open( SAVED, ">>$localfile" );  

    # open new file
    open( NEW, ">$newfile" );

    # write the original file to the new filename
    while ( my $bytesread = read( $remotefile, my $buffer, 1024 ) ) {
        print NEW $buffer;
    }
    close(SAVED);
    close(NEW);

    chmod $mode, "$newfile";        # or die "can't chmod: $!";