#!/usr/bin/perl -w


use DBD::ODBC;

my @drivers = DBI->available_drivers();

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

foreach $driver (@drivers)
{
	print "Driver: $driver\n";
	@DataSources = DBI->$data_sources( $driver );
	foreach $data_sources( @DataSources )
	{
		print "\tdata_source is $data_sources\n";
	}
	print "\n";
}
exit;