Just a play with the ExifTool Perl libary.