Select Code to Download

#Look for everything past the first JSON pointer
$p->set_jsonpointer(["/^"]);

$p->feed('[');
while (my $line = <$cl>) {
...