use Image::ExifTool;
use File::Find;

my $exifTool;

# search and find
File::Find::find (
	# für jede Datei im Verzeichnis rufe diese Sub auf
	sub {
		my $file = $File::Find::name;
		if ($file =~ /\.jpg$/i) {
			say "$file found";
			
			$exifTool = Image::ExifTool->new;
			my $info = $exifTool->ImageInfo($file);

			foreach my $key ( keys %$info ) {	
				print "$file => $key=> $$info{$key}\n";		
			}
		}
	}, 
	# in Verzeichnis C:\test\        
	'C:/test/'  
);