One More Perl Script

#!/usr/local/bin/perl
my @dlist=glob("Im*");
$kk=1;

for $dd (@dlist) {
print "$dd\n";
chdir $dd or die "Cannot change dir to $dd: $!\n";;
my @files=glob("*.jpg");
print "@files\n";
for $fi (@files) {
print "$fi\n";
system("mv $fi ../testImg/$kk-$fi");
}
chdir ".." or die "Cannot change dir to ..: $!\n";
$kk++;
}