#!/usr/bin/perl
my %lex = ('Error' => 'Error',
    );

my $files = '*.JPG';
my @files = glob( $files );

foreach my $file ( @files ) {
    my ( $name, $ext ) = split(/\./, $file);
    my $newname = $name. '.jpg';
    print "File: $file | $newname\n";
    rename $file, $newname;
    
}