my $ua = LWP::UserAgent->new;
$ua->timeout(5);


my $request = HTTP::Request->new(HEAD => $URL1);
my $response = $ua->request($request);
print $response->base, "\n";