Select Code to Download

#!/usr/bin/perl

...
my $t = -ONE_DAY + Time::Piece->strptime("$ARGV[0] 12", "%d/%m/%Y %H")
+;
print localtime($t) . " should be near middle of the day\n\n";
printf "Date as supplied: %s\nDate minus one day: %s\n", $ARGV[0], $t-
+>dmy("/");

Sat May 27 12:00:00 2023 should be near middle of the day

Date as supplied: 28/05/2023
Date minus one day: 27/05/2023