#!/usr/bin/perl
use DBI;

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

##</code><code>##

Available drivers: DBM, ExampleP, File, Gofer, Oracle, Proxy, Sponge