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