$ua = LWP::UserAgent->new;
$request = HTTP::Request->new(HEAD => "$url");
$response = $ua->request($request);
$status_line = $response->status_line;