Help for this page

Select Code to Download

Select or download this

use strict;
use warnings;
...

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

Select or download this
```
76 sleeps until Xmas
```