#! /usr/bin/perl -w
use strict;

use DBI;
my @driver_names = DBI->available_drivers;
print @driver_names,"\n";
my %drivers      = DBI->installed_drivers;
print %drivers, "\n";
my @data_sources = DBI->data_sources('mysqlPP');
print @data_sources,"\n";
my $dbh  = DBI->connect('dbi::mysqlPP::test','','');