Select Code to Download

rename("$oldpath", "$newpath") or die "Error: $!";

use strict;
use warnings;
...
   rename $oldpath => $newpath or die "Error: $!";
}
close $fh;