my $today = DateTime->now;