#!/usr/bin/perl

use DBI;

## Proble DBI for the installed drivers
my @drivers = DBI->available_drivers();

die "No drivers found\n" unless @drivers; 

foreach my $driver ( @drivers ) {
  print "Driver:\t $driver\n";
#  my @dataSources = DBI->data_sources( $driver );
#  foreach my $dataSource ( @dataSources ){
#    print "\tData Sources is $dataSource\n";
#  }
#  print "\n";
}
exit;