johngg@abouriou:~/perl/Monks$ perl -Mstrict -Mwarnings -MTime::Piece -MTime::Seconds -E 'say q{};
my $date = q{Sat Jun  4 22:47:31 2022};
my $tp   = Time::Piece->strptime( $date, q{%a %b %d %T %Y} );
$tp     -= ONE_HOUR;
$tp     -= ONE_HOUR;
say $tp->strftime();'

Sat, 04 Jun 2022 20:47:31 UTC