use DBI::Const::GetInfoType ;
print $dbh->get_info( $GetInfoType{SQL_SERVER_NAME} );