use Win32::ODBC;
 %drivers = Win32::ODBC::Drivers();
 local $" = ", ";
 foreach $driver (sort keys %drivers){
    @attributes = split (/;/,$drivers{$driver});
    print "Driver = $driver\n";
    print "@attributes\n\n";
 }