#!/usr/bin/perl
use strict;

#$myname="Merlin";

my $DEBUG = 0;

# my added here
my $timediff = 0; # ?

my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime (time + ($timediff * 3600)); 


print "$mon $hour, $mday, $mon, $year, $wday\n" if $DEBUG == 1;

my @months = ('01','02','03','04','05','06','07','08','09','10','11','12'); 

my $month = $months[$mon]; 

print "Content-type: text/html\n\n"; 

if ($month eq '11'){   # use 'eq' to compare strings  Nov eq '10' btw
	undef $/; 
	open (FILE, 'hours.txt'); 
	print <FILE>; close FILE; 
}