export DIR=/home/jrw/perl_dbi/linux

unset LD_LIBRARY_PATH
# export LD_LIBRARY_PATH=$DIR/oracle_instantclient

perl -e '
   use strict;
   use warnings;
   BEGIN { $ENV{LD_LIBRARY_PATH} = "$ENV{DIR}/oracle_instantclient" }
   use lib "$ENV{DIR}/lib/perl5";
   use DBI;

   my @drivers = DBI->available_drivers;
   print "Drivers = @drivers\n";
   foreach my $driver (@drivers) {
      my @databases = DBI->data_sources($driver);
      print "   Driver: $driver, data sources = @databases\n";
   }
'