Stupid Pegex Tricks
     
     perl -MXXX -MPegex::JSON -e 'XXX + Pegex::JSON->new->parse(q/{"foo": 42, "bar": [1,2,3]}/)'
     
     perl -MXXX -MPegex -e 'XXX pegex("src/pegex.pgx")->parse("src/pegex.pgx")'
     
     perl -MXXX -MPegex -e 'XXX pegex("src/pegex.pgx", {wrap=>1})->parse("src/pegex.pgx")'
     
     perl -MXXX -MPegex -e 'XXX pegex("src/pegex.pgx", {receiver=>"Pegex::Pegex::AST"})->parse("src/pegex.pgx")'