sub input { &rm_away($alias, $room); $maxVerlauf = '10' if $maxVerlauf eq undef; $verlaufOrder = '1' if $verlaufOrder eq undef; if ($tmp eq 'login') { &post($room, '' . ×tring . " $alias hat den Chat im Raum $room betreten ..."); } print qq[\n\n\n]; &style; print qq[\n\n

\n \n \n \n \n \n

\n \n

\n\n\n]; $client->$shutdown(2); exit 0; } 1;