($ua = LWP::UserAgent->new)->timeout(20);
$ua->request(HTTP::Request->new('HEAD', $url))
$size = (head $url)[1];