Rename files for sorting

#/bin/perl

# this program rename any file with [0-9]+.jpg to [0000].jpg

# apply recusively to sub folders

use Cwd;

use File::Find;

use File::Basename;

$type = "jpg";

$path = &Cwd::cwd();

opendir(DIR, "$path");

@FILES = ();

&File::Find::find( sub {push @allFiles, $File::Find::name;}, ".");

foreach $file (@allFiles) {

    if ( $file =~ "[0-9]+\.$type") {

        $folder = dirname($file);

        $basename = basename($file,(".$type"));

        $newname = sprintf("%04d",$basename);

        print "$file  --> $basename --> $folder/$newname.$type\n";

        rename($file, "$folder/$newname.$type");

    }

}