use AnyEvent;
use AnyEvent::HTTP;
use Encode;
use URI::Escape;
my ( $verbose, $help, $html ) = ( 0, 0, 0 );
my ( $host, $host_intranet ) = ( '', '' );
next unless $url;
$url = "$host/$url" unless $url =~ /^http/i;
$url = encode_utf8($url);
$url = uri_escape( $url, " " );
$count++;
http_request(
HEAD => $url,
-