use strict;
use DBI;
my @drivers = DBI->available_drivers();
$" = "\n";
print "@drivers";
foreach my $driver ( @drivers ) {
    print "Driver: $driver\n";
   if ($driver !~ /prox/i)
   {
    my @dataSources = DBI->data_sources( $driver );
    foreach my $dataSource ( @dataSources ) {
        print "\tData Source is $dataSource\n";
    }
    print "\n";
  }
}