Select Code to Download

$dir="/home/yehuda/img/jpg/";
chop $dir;

while (defined ($img=readdir DH)){
$img=~m/^(.*)\.(.*)\.(.*)/g;
$newname="$1.$3";

push @names,$img;
push @newnames,$newname;
}

close DH;

foreach $name(@names){
$i=$i+1 ;
$newname_=$newnames[$i-1];

$path="$dir/$name";
$target="$dir/$newname_";

chomp($target,$path);

rename ($path,$target) or die "Could not rename:$!";
print "  $path   is now $target \n";

$dir="/home/yehuda/img/jpg";

...
    }
}
closedir DH;