使用套接字发送url请求？

我想使用套接字打开一个链接并阅读html代码,到目前为止我使用的是:

my $req = <send($req);


print "skipping headers\n";
while(<$socket>) { s/^(.*?)\r?\n$/\1/; last if /^\s*\r?\n?$/; }

print "Reading Chunks\n";
my $buffer = "";
while(<$socket>)
{
    last if /^HTTP/;
    next if /^.{0,5}$/;
    s/^\s*(.*?)\s*\r?\n$/\1/;
    $buffer .= $_;
}
print $buffer;

我有两个问题......

1)while(<$socket>)需要时间,当我把打印放在while循环中时,我可以看到只需添加最后一个标签需要一段时间,当打印所有其他源时,它只挂了一分钟到添加最后一个标签.

2)我没有得到页面的真实源代码,我的意思是我们使用的那个view-source:www.example.com,我错过了什么？

编辑:

我称这个子连接在开始时创建套接字

sub _connect
{
      my ($peerAdd) = @_;
     return IO::Socket::INET->new(
         PeerAddr => $peerAdd,
         PeerPort => 'http(80)',
         Proto    => 'tcp'
     )
         or die "Could not connect to $peerAdd:80!! $!"
}

提前致谢.