#!/usr/bin/perl -w

use strict;
use DBI;

my %dbi_drivers = map {lc $_, $_} DBI->available_drivers;

@ARGV == 1
	or die "syntax: $0 driver\n";

my $driver_input = shift;

my $driver = $dbi_drivers{$driver_input} || $driver_input;

for (DBI->data_sources($driver)) {
	print "$_\n";
}