use utf8; use strict; use List::Util qw(max); use Date::Calc qw(Delta_Days); use 42;