Select Code to Download

opendir( my $dirhandle, $dir ) or die "Can't opendir directory '$dir':
+ $!\n";

rename( "$dir/$name.$old", "$dir/$name.$new" )
  or warn "Problem renaming '$dir/$name.$old' to '$dir/$name.$new': $!
+\n";