#!/usr/bin/perl
use DBI;

  print qq{Available drivers: }.
    join(", ",&DBI::available_drivers()).
      qq{\n};
[download]

should return something like this: note Oracle appears alive and well in the list.

Available drivers: DBM, ExampleP, File, Gofer, Oracle, Proxy, Sponge
[download]

But what do I know, I'm not even an initiate yet. However I'm learning, thanks to the Monastery.