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/'  
);