#!/usr/bin/perl
print"Content-type:text/html\n\n"; 
$ttime="second,min,hour,mday,mon,year,wday,yday,isdst";
$thisday=(Sun,Mon,Tue,Wed,Thu,Fri,Sat)[(localtime)[6]];
print "Today : $thisday<br>";
@tt=split(",",$ttime);
@t=localtime(time);
$v = $t[0] % 4;
print "Mod result: $v<br>$tt[0] = ",$t[0],"<hr>";
if ($v eq 1) { print "one<br>";}
if ($v > 2) { 
  print "three";
} else {
  print "zero or one or two";
}  
print "<hr>";
if ($v eq 0) { print "zero"; }
elsif ($v eq 1) { print "one"; }
elsif ($v eq 2) { print "two"; }
else { print "three"; }