Select Code to Download

    my $date = q{Sat Jun  4 22:47:31 2022};
    my $fmt_t = q{%a %b %d %T %Y};
...
    say sprintf $fmt_s, split q{ }, $tp->strftime($fmt_t);
    $tp += 6 * ONE_DAY;
    say sprintf $fmt_s, split q{ }, $tp->strftime($fmt_t);

Sat Jun  4 20:47:31 2022
Fri Jun 10 20:47:31 2022