Select Code to Download

use strict;
use LWP::UserAgent;
...
my $response = $ua->request($request) || return "ERROR\t$!";

print $response->content_length;

2927