perl: No one is chatting