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