#!/usr/bin/perl -w

use strict;
use DBI;

my $trace_level=2;
DBI->trace($trace_level);
my $driver = 'ODBC';
print qq(DRIVER:$driver\n);
my @data_sources = DBI->data_sources($driver);
foreach my $source (@data_sources)
{
	print qq(	SOURCE:$source\n);
}