sub zam {
say($input[1],$user{$client}{room});
}
return 1;