use strict; use Win32::ODBC; use Data::Dumper; my %DSN = Win32::ODBC::DataSources(); print Dumper(%DSN);