Nice catch, thanks. Perhaps something like this will fix it

my $now = time;
my $today = $now - ($now % 86400);
while (<DATA>) { # read bank holiday file
    ...
    next if $bh_start < $today; # history
    ...
}
...
[download]

I gotta run home now, will test it really works later

Update

Sadly it does not work. It looks lie POSIX mktime is based on GMT, localtime, of course is not. I added the above change, plus a bit of printing and a bank holiday for today (localtime now: 2116, GMT 2016) running the code it does skip todays bank hol (17th Oct 2013)

start of day (epoch based):Thu Oct 17 01:00:00 2013
Bank Hols
Mon Oct 21 00:00:00 2013
Mon Feb  3 00:00:00 2014
[download]

Is there a better way to get timezone offset than to mktime for epoch + 1 day and comapare to localtime for the same? Can I trust the environment, or is there a magic Perl var?

Cheers,
R.