Could not rename:Device or resource busy at rename line 22.

##</code><code>##

#! /usr/bin/perl


$dir="/home/yehuda/img/jpg/";
opendir(DH,$dir)or die "FOO BAR! $!\n";
while (defined ($img=readdir DH)){

        if ($img=~m/^(.*)\.(.*)\.(.*)/g){$success=1};
                if ($sucess==1){
                $newname="$1.$3";
                }else{
                print "$img didn't match\n";
                }

push @names,$img if $sucess==1;
push @newnames,$newname if $sucess=1;
}
closedir DH;

foreach $name(@names){
$i=$i+1 ;
$newname_=$newnames[$i-1];
$path="$dir/$name";
$target="$dir$newname_";
rename ($path,$target) or die "Could not rename:$!";
print "  $path   is now $target \n";
;

}