Select Code to Download

$ perl -MDateTime -E 'my $dt = DateTime->new(year=>2021); say DateTime
+->now->delta_days($dt)->in_units("days")'
130