#!/usr/local/bin/perl $| = 1; print "Content-Type: text/html\n\n"; @mn = qw(January February March April May June July August September October November December); ($m2,$y) = (localtime)[4..5]; $y += ($y>70) ? 1900 : 2000; $m1 = ($m2+11)%12; $k1 = $y-($m1>$m2).substr("0".($m1+1),-2); $k2 = $y .substr("0".($m2+1),-2); $m3 = ($m2+1)%12; $k3 = $y+($m3<$m2).substr("0".($m3+1),-2); print < Central Texas Early Music Calendar EOF