use File::Copy qw(cp);
open(my $fh, ">upgeloadete_datei") or do {
    # ups, keine Schreibrechte
    cp "upgeloadete_datei", "upgeloadete_datei~";
    unlink "upgeloadete_datei";
    rename "upgeloadete_datei~", "upgeloadete_datei";
};