#!/usr/bin/perl
use DBI;

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