#!/usr/bin/perl
use XML::Writer;
use Image::ExifTool;

# fetch filename to parse
my $filename = shift || die "Please specify filename\n";

# create ExifTool object
my $exifTool = new Image::ExifTool;

# fetch image information
my $info = $exifTool->ImageInfo($filename);

# create XML output module
my $xmlWriter = new XML::Writer();

$xmlWriter->startTag("FootoExifInfo");
# print out xmltags for each informative element
foreach (keys %$info)
{
    $tagName = $_;
    #$tagName =~ s/[^a-zA-Z0-9]+//g;
    $properTagName = Image::ExifTool::GetTagName($tagName);
    $xmlWriter->startTag($properTagName, 'realName' => $tagName);
    $val = $$info{$_};
    $val =~ s/\x00/\n/s;

    if($val =~ m/\n/)
    {
        $xmlWriter->cdata($val);
    }
    else
    {
        $xmlWriter->characters($val);
    }

    $xmlWriter->endTag($properTagName);
}

$xmlWriter->endTag("FootoExifInfo");
$xmlWriter->end();