for my $file (glob('C:/test/*.jpg')) {
  print "$file found\n";
  my $info = Image::ExifTool->new()->ImageInfo($file);
  foreach my $key ( keys %$info ) {       
    print "$file => $key=> $$info{$key}\n";
  }
}