Select Code to Download

use strict;

...
( rename $filename, "$filename.old" and
  rename "$filename.new", $filename )
    or die "rename failed: $!"