use strict;
use warnings;
use DateTime;

my $dt = DateTime->today();