Select Code to Download

1 until rename $file1, $file2;

my $attempts;
while (not rename $file1, $file2)
...
  die "Could not rename file: $!" if $attempts > 7;
  sleep $attempts;
}