...

my $res = $t - 22*60*60;
while( $res->ymd('-') eq $t->ymd('-') ) {
    $res -= 22*60*60;
}
return $res