Help for this page
perl -MDateTime -E 'say DateTime->now->month' perl -MDateTime -E 'say DateTime->now->subtract(months=>1)->month'
7 6