#!/share/bin/perl

use DBI;

# What can you get to?
# You might find for example that your Windows machine
# has ODBC and MySQL drivers
@drivers = DBI->available_drivers;

print "These are the available drivers :\n";
foreach (@drivers) {
	print "\t$_\n";
}

# Drivers let you reach "data sources"
# On Windows, your ODBC driver would let you get at
# any database for which you have created an entry in the ODBC
# datasources table.
while(1) {
	print "Enter driver name : ";
	$dname = <STDIN>;
	chomp($dname);
	if($dname =~ /quit/i) { last; }
	@datasources = DBI->data_sources($dname);
	print "The driver $dname has these sources :\n";
	foreach $source (@datasources) {
		print "\t$source\n";
	}

}