#!/usr/bin/perl -w

use DBI::Sybase;
use strict;

my @drivers = DBI->available_drivers();

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

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