Select Code to Download

#!/usr/bin/env perl
use warnings;
...
    move $file, $newfile or warn "$file: $!";
    $newname++;
}