#!/usr/bin/perl

use strict; # https://perlmonks.org/?node_id=11152433
use warnings;
use Time::Piece;
use Time::Seconds;
{
print "MONTH is first, then DAY. That is: MM/DD/YYYY\n";

@ARGV = '05/01/2023'; # MONTH comes first

my $t = Time::Piece->strptime("$ARGV[0] 12", "%m/%d/%Y %H");

my $daybefore = ($t - ONE_DAY)->mdy("/");

printf <<END, $ARGV[0], $daybefore;

Date  as  supplied: %s

Date minus one day: %s

END
}