Add a little script that converts the templates to JSON

For reasons! We are thinking about ways to improve the template
workflow, and this is useful for doing that.

Signed-off-by: Adam Williamson <awilliam@redhat.com>

tojson.pm

@@ -0,0 +1,15 @@
+#!/bin/perl
+
+use JSON;
+
+my $templates = do './templates';
+my $updates = do './templates-updates';
+
+my $tempjson = JSON->new->utf8(1)->pretty(1)->encode($templates);
+my $updjson = JSON->new->utf8(1)->pretty(1)->encode($updates);
+
+open(FILE, "> templates.json");
+print FILE $tempjson;
+
+open (FILE, "> templates-updates.json");
+print FILE $updjson;