%attr = (
    PrintError => 1,
    RaiseError => 1,
);


$driver= "Oracle";
$dsn = "DBI:$driver:sid=$db_name;host=$host";
eval {
        $dbh = DBI->connect($dsn, "$user", "$passwd", \%attr);
};if($@){
        print "ERROR with connection: $@\n";
}

print "Hello";

o/p: 
[lroot@slc11zrg ~]# perl_5.22  db.pl
HelloSegmentation fault


##</code><code>##


export LD_LIBRARY_PATH=/usr/lib/oracle/12.2/client64/lib
export ORACLE_HOME=/usr/lib/oracle/12.2/client64/