Problem z nasluchiwaniem

[user]

Zastanawia mnie tylko jedno... dlaczego to wyglada dokladnie tak samo jak program talk z unixow

Nie wzorowalem sie na nim Postanowilem napisac prosty serwer i klienta do rozmow ale hm... cos mi sie ten serwer ... poniewaz nie dostaje pakietow ktore maja do mnie leciec Oto kod(moze mi powiecie czemu?):

#!/usr/bin/perl
use IO::Socket::INET; 
#use strict;
$l = IO::Socket::INET->new(LocalPort=>2345, Listen=>1, ReuseAddr=>1);
while(1)
{
$p = $l->accept();
$packet = <$p>;
print "packet: $packet\n";
if($packet)
{
$from = $p->peerhost;
$packet =~ m/<to>(.*?)<\/to>/g;
$to = $1;
$packet =~ m/<text>(.*?)<\/text>/g;
$text = $1;
print "from: $from\nto: $to\ntext: $text\n";
$s = IO::Socket::INET->new(PeerPort=>2345,PeerAddr=>"$to");
print $s "<from>".$from."</from><text>".$text."</text>";
}
}

[spider]

hmm... na moje oko tutaj jest wszystko ok