Help for this page

Select Code to Download

Select or download this

my $today = POSIX::mktime(0,0,0,(localtime)[3..5]);
while (<DATA>) { # read bank holiday file
   ...