my @drivers = DBI->available_drivers();

foreach my $driver (@drivers)
{
	print "Driver: $driver<br>";
	
	if ($driver ne "Proxy" && $driver ne "Multiplex" && $driver ne "ExampleP") ##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";
}