my $sock = IO::Socket::INET->new("loclahost:1111");
while() {
my $server = <$sock>;
chomp($sock);
if($sock =~ 'm(.*?)) {
my $msg = $2;
print "$msg\n";
}

}
### So empfage ich nachrichten vom server und sie werden mir angezeigt
### doch das senden verstehe ich noch nicht.
### mit senden:
my $sock = IO::Socket::INET->new("loclahost:1111");
while() {
my $server = <$sock>;
chomp($sock);
if($sock =~ 'm(.*?)) {
my $msg = $2;
print "$msg\n";
}
my $text = <STDIN>;
if($text =~ 'say (.*)') {
my $msg_send = $1;
print $sock "m($msg_send)\n";
}
}