chomp (my $roomcmd = <>) ;