%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