#!perl.exe -w

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

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

system "copy on.cgi on2.cgi"