foreach my $file (glob("*\.JPG")){
  print $file;
  if($file=~ m/(.+)\.JPG/){
    `mv $1.JPG $1.jpg`
  }
}
