(my $name = $filename) =~ s/^.*(\/|\\)//;

    open(UPLOAD, ">$UPLOADDIR/$name") or die "$name: $!";;
    while ( <$filename> ) {
        s/\r//g if $stripCRs;
        print UPLOAD $_;
    }
    close(UPLOAD);