use strict;
use warnings;

use Time::Piece;
use Test::More tests => 6;

my $str = '31/08/2024';

my $tp = Time::Piece->strptime ($str, '%d/%m/%Y/');
is $tp->mday, 31;
is $tp->mon, 8;
is $tp->year, 2024;

$str = '01/09/2024';

$tp = Time::Piece->strptime ($str, '%d/%m/%Y/');
is $tp->mday, 1;
is $tp->mon, 9;
is $tp->year, 2024;