my $command = join ("", "x10comm.exe ", "a2 ", "on");