Select Code to Download

#!/usr/bin/perl

...
    print "$_ -> $new2\n";
    rename($new, $new2) or die "Cannot rename '$new' to '$new2': $!";
}