Получение первых N байт по http

#! perl

use LWP::UserAgent
use Try::Tiny

my $chunk;
try { new LWP::UserAgent()->get ($url, ':content_cb' => sub { $chunk = $_[0]; die },
                                       ':read_size_hint' => 32); };

( или в одну строку: )