$logger->critical(...);
my $long_message = Carp::longmess;
foreach my $line ( $long_message =~ m/^.+$/msg ) {
    $logger->critical( $line );
}
confess(...)