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

##</code><code>##

$ perl -e '
    use strict;
    use warnings;

    use Time::Piece;
    use Time::Seconds;

    my $t = Time::Piece->strptime($ARGV[0], "%d/%m/%Y");
    printf "Date as supplied: %s\n", $t->dmy("/");
    $t = $t - ONE_DAY;
    printf "Date minus one day: %s\n", $t->dmy("/");
' 01/12/2022
Date as supplied: 01/12/2022
Date minus one day: 30/11/2022