How do you find out available DSNs?

#!C:/Perl/bin/perl -w

use DBI;

foreach my $dsn ( DBI->data_sources('ODBC') )
{
print "$dsn\n";
}