diff --git a/tojson.pm b/tojson.pm
new file mode 100755
index 00000000..fea5f8fb
--- /dev/null
+++ b/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;