#!/usr/bin/perl -w

use strict;
use DBI; 

#probe DBI for available drivers
my @drivers = DBI->available_drivers();

##iterate through drivers and list the data source for each one
foreach my $driver (@drivers)
{
	print "Driver: $driver\n";
	
	my @datasources = DBI->data_sources($driver);
	foreach my $datasource (@datasources)
	{
		print "\tData Source is $datasource\n";
	}
	
	print "\n";
}
   
exit;