As I posted in LWP: Downloading First 2KB of an HTML File:

my $data;
my $res = $ua->request( $req, sub { $data = shift; die }, 5120 );
[download]

Note that $res->content will be empty.