$ua->add_handler( response_data => sub {
                my($response, $ua, $h, $data) = @_;

                eval {  
                        my $result = $json->incr_parse( $data );
                        if (defined $result){
                                print Dumper $result;
                        };

                };
                if ($@){ print STDERR "Error: $@\n"; die };
                1;
        } );