use strict;
use warnings;
use Date::Manip;

Date_Init ('DateFormat = NZ', 'TZ = NZST');

my $today = ParseDate ('today');

DateCalc ($today, '25 december ' . UnixDate ($today, '%Y')) =~ /\d+:\d+:(\d+):(\d+)/;
print $1 * 7 + $2, ' sleeps until Xmas';

##</code><code>##

76 sleeps until Xmas