I'm trying to retrieve the first 4k of a file from a
remote web server using LWP and HTTP, and this code
frag will only return the entire file. I've just pulled
the latest HTTP::Request from CPAN.
my $request = HTTP::Request->new(GET => "$url/$file");
my $response = $self->{ua}->simple_request($request, "/tmp/$file", 409
+4);