判断URL是否有效

最近要检查一个东西，需要判断此URL是否有效

由于这是一个下载连接，文件比较大

使用了LWP::Simple这个模块判断该连接是否有效

由于文件比较大，所以使用了

my $content=head($url);

得到文件头，但发现，当某些服务器DOWN了的时候

得到的结果要非常慢，毕竟是比较巨大的文件

使用了IO::Socket::INET模块来判断能否建立到相应服务器相应端口的连接

$sock=IO::Socket::INET->new(PeerAddr=>"$2",
                         PeerPort=>"http(80)",
                         Proto=>"tcp",
                         Timeout=>"10")
                or print "$url\t失败\tIP:\t$1\t->\t$2\n" and next;
                $sock->close;