aa99b349 DM |
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__ |