#!/usr/bin/perl

=comment

dbi2.pl vorhandene Datenbanktreiber

=cut

use strict;
use warnings;
use DBI;
use CGI;

my $q = CGI->new();

#print "Content-type: text/html\n\n";
print $q->header();

my @drivers = DBI->available_drivers();

print "vorhandene Treiber:<br>";
foreach (@drivers){
	print "$_<br>";
}