Or for pretty colors, try Data::Printer
echo '{"hello":"there"}' | perl -MJSON -MDDP -E '$f = decode_json readline; p $f' echo '{"hello":"there"}' | perl -MJSON -MDDP -E '$f = decode_json readline; p $f'