my $request = HTTP::Request->new('HEAD', $link); $request->header('Accept' => 'text/html'); my $response = $ua->request($request); if ($response->is_success) { my $url = $response->request()->uri(); logger( "### Found new URL: " . $url ); push(@urls, $url); }