while(my @readable = $select->can_read) {
    foreach my $socket (@readable) {
        if($socket == $server) {
            print "Connected:Froschpopo\n";
            my $client = $socket->accept;
            $select->add($client);
            $socket->print("Connected as Froschpopo\n");  # hier ist das Problem
        } else {
            my $line = $socket->getline;
            if(defined $line) {
               
 $line =~ s!\r?\n$!!g;
               
 if(lc($line) eq "quit") {
               
     print "Client quits\n";
               
     delete_socket($select, $socket);
               
 } else {
               
     print "Client says: [$line]\n";
               
     $socket->print("$line\n");
               
 }
            } else {
               
 print "Connection closed by client\n";
               
 delete_socket($select, $socket);
            }
        }
    }
}