Select Code to Download

[
   {
...
      "favorite_food" : "raw hamburger"
   }
]

{
   "People" : [
...
      }
   ]   
}

#!/usr/local/perl5/bin/perl
use strict;
...
my $coder = JSON::XS->new->ascii->pretty->allow_nonref;
my $pretty_printed_unencoded = $coder->encode ($uuts);
print $pretty_printed_unencoded;

{
   "People" : [
...
      ]
   ]
}