use strict;
use warnings;
use Data::Dump qw/pp dd/;
use Date::Parse;
use DateTime;

pp my $date = 'Sat Jun  4 22:47:31 2022';
pp my $time = str2time($date);

pp my ($ss,$mm,$hh,$day,$month,$year,$zone) = strptime($date);

my $dt = DateTime->from_epoch
  (
   epoch     => $time,
   time_zone => 'UTC',                  # fill in your timezone
  );

print $dt;