Select Code to Download

    # note: $fallback is \&File::Copy::copy() or \&File::Copy::cp()
    return 1 if rename $from, $to;
...
    unlink($to) if !defined($tomt1) or $tomt1 != $tomt2 or $tosz1 != $
+tosz2;
    ($!,$^E) = ($sts,$ossts);
    return 0;