my $dir = "e:/db/";
if (-d $dir) {
	print "OK $dir\n";
	opendir(my $dh, $dir) || die "Can't opendir $dir: $!";
	print join("\n",readdir($dh));
	closedir $dh;
}

my %dsn = Win32::ODBC::DataSources();

foreach my $key (sort keys %dsn) {
	print "<br>$key $dsn{$key}";
}