use strict;
use Date::Calc qw(Date_to_Time Time_to_Date);

my @current_date = (2023,5,17, 1,0,0);
for my $i (1..10) {
    my $time = Date_to_Time(@current_date);
    my @date = Time_to_Date([$time]);
    print join(",",@date),"\n";
}

##</code><code>##

C:> perl date.pl
1970,6,10,23,54,16
1970,6,10,23,57,28
1970,6,11,0,0,40
1970,6,10,23,54,40
1970,6,11,0,0,16
1970,6,11,0,16,16
1970,6,10,23,55,4
1970,6,10,23,57,52
1970,6,10,23,59,52
1970,6,10,23,54,16

C:> perl date.pl
1971,4,5,20,27,4
1971,4,5,20,30,16
1971,4,5,20,33,28
1971,4,5,20,27,28
1971,4,5,20,33,4
1971,4,5,20,49,4
1971,4,5,20,27,52
1971,4,5,20,30,40
1971,4,5,20,32,40
1971,4,5,20,27,4