Select Code to Download

$ perl -E 'use Time::Seconds; say ONE_DAY'
86400

$ perl -e '
    use strict;
...
' 01/12/2022
Date as supplied: 01/12/2022
Date minus one day: 30/11/2022