while (1) {
    my $buf;
    my $n = $http->read_entity_body($buf, 1024);
    die "read failed: $!" unless defined $n;
    last unless $n;
    push @listing, $buf =~ /ID=(\d+)/g;
}