my $socket = IO::Socket::INET->new(PeerAddr => $peer,
                                   PeerPort => '3003',
                                   Proto    => 'tcp',) or die ...
...
while (...){ 
	if(defined (my $from_server = <$socket>)) {...