#!/usr/bin/perl --
use strict; use warnings;
use Data::Dump qw' pp ';
use File::Slurp qw' read_file ';
use autodie qw' chdir open ';
chdir 'templates directory';
open my($fh), '>:raw', 'MahTemplates.pl';
select $fh;
print '%templates = (', "\n";
for my $file ( glob '*.xml' ){
    print dd(
        $file,
        scalar
        read_file(
            $file,
            { binmode => ':raw' }
        )
    ), "\n";
}
print "\n);\n";
close $fh;