print $socket "ASCII\n";
my $answer1 = <$socket>;
print $socket "LIST_USERS\n";
my $answer2 = <$socket>;

close($socket);
print "Chatserver: $answer1 $answer2\n";