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