use Date::Manip;
my @date = ParseRecur("0:0:1*5:0:0:0","","Jan 1 2020","May 31 2020");
foreach my $d (0..$#date) {
    print UnixDate($d,"%a %b %d %Y"),"\n";
}