asciidoc-pve.in

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5 use JSON;
   6
   7 my $data_str = "";
   8 while (<main::DATA>) { $data_str .= $_; }
   9
  10 my $fileinfo = decode_json($data_str);
  11
  12 print to_json($fileinfo, { pretty => 1 });
  13
  14 die "implement something useful instead";
  15
  16 __END__