Select Code to Download

...
 warn sprintf "(Sub)string is [%s]", substr($js,$offset,20);
        die $@
...

# Take a JSON response and convert it to a Perl data structure
sub to_perl {
...
    };
    $res
};