# A01のX10モジュールを10秒間ONして、20秒間OFFする perlプログラム

while(1){
    system "x10client A01:A20";
    $zikan = localtime(time);
    print "x10client A01:A20",$zikan,"\n";
    sleep 10;

    system "x10client A01:A28";
    $zikan = localtime(time);
    print "x10client A01:A28",$zikan, "\n";

    sleep 20;


    system "x10client A01:A20";
    my ($wtime,$msec) = split(/\./ , Time::HiRes::time);
    my @t = localtime($wtime);
    
    printf("ON %04d%02d%02d%02d%02d%02d.%03d \r\n",
	   $t[5]+1900,$t[4]+1,$t[3],$t[2],$t[1],$t[0],($msec));
    
    sleep 10;
    
    system "x10client A01:A28";
    my ($wtime,$msec) = split(/\./ , Time::HiRes::time);
    my @t = localtime($wtime);
    printf("OFF %04d%02d%02d%02d%02d%02d.%03d \r\n",
	   $t[5]+1900,$t[4]+1,$t[3],$t[2],$t[1],$t[0],($msec));
    

    sleep 20;

}