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<br>";
	
	if ($driver ne "Proxy" && $driver ne "Multiplex") ##DBD:Proxy and DBD::Multiplex have problem with datasources
	{
		my @datasources = DBI->data_sources($driver);
		foreach my $datasource (@datasources)
		{
			print "\tData Source is $datasource<br>";
		}
	}
	
	print "\n";
}