$ua->add_handler( response_data => sub {
                my($response, $ua, $h, $data) = @_;
                return "true" if $data =~ /^\s*$/;
                print "Callback triggered\n";
                print "data: .${data}.\n";

                my $result = eval { $json->decode( $data ) };
                if ($@){
                        print "error: $@\n";
                        return "true";
                };
                print Dumper $result;
                return "true";
        } );

##</code><code>##

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