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

[ocehb]

#! 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); };

однострочник.

# perl -MLWP::UserAgent -le 'try { new LWP::UserAgent()->get ($ARGV[0], \
  '':content_cb'' => sub { print  $_[0]; exit }, '':read_size_hint'' => $ARGV[1]); }' \
  http://www.google.fi/images/srpr/logo2w.png 32 | file -
/dev/stdin: PNG image data, 275 x 95, 8-bit colormap, non-interlaced