#!C:/Perl/bin/perl.exe -w
# dbi3.pl vorhandene Datenquellen
use DBI;
use strict;
BEGIN {
print "Content-type: text/html\n\n";
use CGI::Carp qw/fatalsToBrowser/ }
$driver = "mysql";
@sources = DBI ->data_sources($driver);
print "vorhandene Datenquellen:
";
foreach (@sources){
print "$_
";
}