use strict;
use warnings;
use DBI;
use Data::Dumper;

my @drivers = DBI->available_drivers();

print Dumper(@drivers);

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

##</code><code>##

$VAR1 = 'ADO';
$VAR2 = 'ExampleP';
$VAR3 = 'Multiplex';
$VAR4 = 'Proxy';
$VAR5 = 'mysql';
Driver: ADO
install_driver(ADO) failed: Can't locate Win32/OLE/Variant.pm in @INC (@INC contains: /usr/lib/perl5/i386-linux /usr/lib/perl5 /usr/lib/perl5/site_perl/i386-linux /usr/lib/perl5/site_perl /usr/lib/perl5/site_perl .) at /usr/lib/perl5/site_perl/i386-linux/DBD/ADO.pm line 558.
BEGIN failed--compilation aborted at /usr/lib/perl5/site_perl/i386-linux/DBD/ADO.pm line 558.
Compilation failed in require at (eval 1) line 3.
Perhaps a module that DBD::ADO requires hasn't been fully installed
 at test7.pl line 12