tools/mkjson

   1 #!/usr/bin/env perl
   2 use 5.012;
   3 use warnings;
   4 use JSON;
   5
   6 my $data = do "./$ARGV[0]" or die $@;
   7 print JSON->new->utf8->canonical->encode($data);