#!perl.exe -wT

use Strict;
use CGI;
my $q = new CGI;
print $q->header("text/html");

print"<h2>Turning Lights ON</H2>";

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