$:~/ ./runMyPerlScript.pl
Can't load '/usr/local/lib/perl5/site_perl/5.28.0/x86_64-linux/auto/DBI/DBI.so' for module DBI: /usr/local/lib/perl5/site_perl/5.28.0/x86_64-linux/auto/DBI/DBI.so: undefined symbol: PL_sv_immortals at /usr/lib64/perl5/DynaLoader.pm line 200.
 at /usr/local/lib/perl5/site_perl/5.28.0/x86_64-linux/DBI.pm line 284.
BEGIN failed--compilation aborted at /usr/local/lib/perl5/site_perl/5.28.0/x86_64-linux/DBI.pm line 284.
Compilation failed in require at /usr/local/lib/perl5/site_perl/5.28.0/x86_64-linux/DBD/Oracle.pm line 20.
BEGIN failed--compilation aborted at /usr/local/lib/perl5/site_perl/5.28.0/x86_64-linux/DBD/Oracle.pm line 20.
Compilation failed in require at /home/oracle/scripts/purge_proddoc_script/purge_proddoc_script.pl line 16.
BEGIN failed--compilation aborted at /home/oracle/scripts/purge_proddoc_script/purge_proddoc_script.pl line 16 (#1)
    (F) The module you tried to load failed to load a dynamic extension. This
    may either mean that you upgraded your version of perl to one that is
    incompatible with your old dynamic extensions (which is known to happen
    between major versions of perl), or (more likely) that your dynamic
    extension was built against an older version of the library that is
    installed on your system. You may need to rebuild your old dynamic
    extensions.

Uncaught exception from user code:
        Can't load '/usr/local/lib/perl5/site_perl/5.28.0/x86_64-linux/auto/DBI/DBI.so' for module DBI: /usr/local/lib/perl5/site_perl/5.28.0/x86_64-linux/auto/DBI/DBI.so: undefined symbol: PL_sv_immortals at /usr/lib64/perl5/DynaLoader.pm line 200.
 at /usr/local/lib/perl5/site_perl/5.28.0/x86_64-linux/DBI.pm line 284.
BEGIN failed--compilation aborted at /usr/local/lib/perl5/site_perl/5.28.0/x86_64-linux/DBI.pm line 284.
Compilation failed in require at /usr/local/lib/perl5/site_perl/5.28.0/x86_64-linux/DBD/Oracle.pm line 20.
BEGIN failed--compilation aborted at /usr/local/lib/perl5/site_perl/5.28.0/x86_64-linux/DBD/Oracle.pm line 20.
Compilation failed in require at /home/oracle/scripts/purge_proddoc_script/purge_proddoc_script.pl line 16.
BEGIN failed--compilation aborted at /home/oracle/scripts/purge_proddoc_script/purge_proddoc_script.pl line 16.
 at /home/oracle/scripts/purge_proddoc_script/purge_proddoc_script.pl line 16.
$:~/scripts/purge_proddoc_script > cat /etc/redhat-release
Red Hat Enterprise Linux Server release 6.8 (Santiago)

##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;
use diagnostics;

package purge_proddoc_script;

use Getopt::Std;
# use Sys::Hostname;
use POSIX qw(setuid setgid);
use English;

use Carp;
use Cwd 'abs_path';
use DBD::Oracle qw(:ora_session_modes);
use DBI;
use File::Basename;
use IO::Handle;
use Log::Log4perl qw( :easy );
use Text::Diff;
local $SIG{__WARN__} = \&Carp::cluck;

$SIG{__DIE__} = sub {
#        return if $^S; # ignore die in an eval block

        # Get the actual caller for the "die" and not the wrapper
        local $Log::Log4perl::caller_depth;
        $Log::Log4perl::caller_depth++;

        LOGDIE($_[0]);
    };

# possible log values: DEBUG, INFO, WARN, ERROR, FATAL
my $debug_level="INFO";
# my $error_mail_list='bbyrd@aires.com, ASayed@aires.com, vkamins@aires.com, RKatru@aires.com';
my $error_mail_list='bbyrd@aires.com';

# Unbuffer STDOUT and STDERR
select STDERR; $| = 1;
select STDOUT; $| = 1;