#!/usr/bin/perl

#$myname="Merlin";
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime (time + ($timediff * 3600));
	@months = ('01','02','03','04','05','06','07','08','09','10','11','12');
	$month = $months[$mon];

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

if ($month==11){
undef $/;
open (FILE, 'hours.txt');
print <FILE>;
close FILE;

}