sub broadcast {
    my $text = shift;
    foreach my $user(keys %chatters) {
        my $chatter = $chatters{$user}->{client};
        if($chatter ne $client) {
            print $chatter "$text\n";
        }
    }
}