a Perl script to recursively set EXIF Orientation to Horizontal