push 出错

push 出错
我的程序如下

[quote]

use IO::Socket;

my @xmllines;

$httpcon=IO::Socket::INET->new(PeerAddr=>"slashdot.org",
PeerPort=>80,
proto=>"tcp"
) or die "!!!socket generate error.\n";

print $httpcon "GET / HTTP/1.1"."\r\n";
print $httpcon "User-Agent:Perl Browser"."\r\n";
print $httpcon "HOST:www.slashdot.org"."\r\n";
print $httpcon "\r\n";

while (my $input=<$httpcon>)
{
print $input;
if ($input=~/^\r$/) {last;};
}

while (my $input=<$httpcon>)
{
[color=red]push @xmllines,$input[/color];
}

push @xmllines,"aaa\n";
push @xmllines,"aac\n";

print @xmllines;

[/quote]

红色的push无效,下面的"aaa\n"和"aac\n"反而可以print出来,请问这是怎么回事?

多谢!

   

问题解决了----域名写.
问题解决了

域名写错了,不好意思 :)