如何使用 LWP 获取网页的开头部分？

有谁知道通过 GET 或 POST 请求仅获取 50% 网页的最佳方法吗？我获取的网页需要 10、20 秒才能完全加载，而且我只需要从页面开头过滤几行即可。

use 5.010;
use strictures;
use LWP::UserAgent qw();

my $content;
LWP::UserAgent->new->get(
    $url,
    ':content_cb' => sub {
        my ($chunk, $res) = @_;
        state $length = $res->header('Content-Length');
        $content .= $chunk;
        die if length($content) / $length > 0.5;
    },
);