#!/usr/bin/perl -w
use strict;

my $timediff = 1;   # 1 hour in the future
my $month = (localtime(time+$timediff*3600))[4]   # month
             + 1;              # we need to add 1 to month

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

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