Select Code to Download

$ua->add_handler( response_data => sub {
                my($response, $ua, $h, $data) = @_;
...
                print Dumper $result;
                return "true";
        } );

{ "foo": "bar" }
{ "foo" : "q