#! c:/perl/bin/perl
use strict;
use warnings;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use DBI;
my $cgi = CGI->new();
print $cgi->header(-type => 'text/html');
print "-------------[ ODBC DSNs ]-------------
\n";
my @dsn = DBI->data_sources("ODBC");
foreach my $dsn (@dsn) {
print "DSN: $dsn\n";
}
print "
\n";