Set the chunk size to a low value, and add a callback to the request that dies immediately. That will abort the response after the first chunk has been read.

Example:

# read response in chunks of 10 bytes, with a callback function 
# that dies when receiving the first chunk. This aborts reception
# of the entire response.
$ua->request( $req, sub { die }, 10 );
[download]