Select Code to Download

#!/usr/bin/perl
use DBI;
...
  print qq{Available drivers: }.
    join(", ",&DBI::available_drivers()).
      qq{\n};

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