Mit $s = sprintf() kannst Du eine Variable formatieren.

Ein Aufruf externer Programme liefert Rückgabewerte mit Zeilenvorschub, benutze chomp() zum Entfernen dieser.

Mit Image::ExitTool erstellst Du ein Objekt und rufst damit Methoden aus, welche Dir alle Exif-Infirmationen eines Images liefern.

File::Find::find() erwartet als ersten Parameter eine Referenz auf eine Callbackfunktion, in der CB wird $File::Find::name verwendet, was Du entweder gleich verarbeiten oder auf ein Array pushen kannst, um es später zu verarbeiten.

Tipp: Mache Dich ersteinmal mit den Methoden von Image::ExifTool vertraut anhand einer einzelnen Datei. Auf den Systemcall kannst Du verzichten.