use IO::Socket::INET qw/:crlf/;
...
print $socket "moderatorlogin passwort$CRLF";
...