Select Code to Download

# Slurp file $fname into array @lines.
open(my $fh, $fname) or die "open '$fname': $!";
...
   rename($bak, $fname) or die "rename $bak $fname: $!";
   chmod($mode, $fname) or die "chmod $fname: $!";
}