Denger、Safe、Install、Ok、hage　これ最強

しかし、これでつながらんぞ
#!/www/bin/perl
use IO::Socket;
use IO::Select;　←　これ意味わからん
@servers = ('www.zdnet.co.jp','www.asahi.com',);なんでふたつなんだ？
print "Content-type: text/html\n\n";　←　ほうそれで
foreach $server (@servers){　←　なんだ連想か？
$socket = IO::Socket::INET->new(PeerAddr => $server,　←　なんだ＝＞って
PeerPort => 80,　←　構造体ではないな
Proto => 'tcp',
);
＃＃＃＃＃＃＃なに？これで接続できるのか？

print $socket "GET /index.html\r\n";　これはSend（）か
print $socket "Host: $server:80\r\n";　なんで２回にわける
　　　　　　　　　　　　　　　　　しかも、\n\nじゃないのか？

＃＃＃＃＃＃＃＃＃＃レシーブにあたる関数がないぞ！

$socket->flush();　←　クローズソケットか？
print <$socket>;　なんだ？