#! 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 ]-------------<br />\n";
my @dsn = DBI->data_sources("ODBC");
foreach my $dsn (@dsn) {
  print "DSN: $dsn\n";
}
print "<br />\n";