You can get a hash of the DSN name entries on a Windows system with Win32::ODBC

use strict;
use Win32::ODBC;
use Data::Dumper;

my %DSN = Win32::ODBC::DataSources();
print Dumper(%DSN);
[download]

Updated Fixed grammar. Now back to my pizza pie. :)