Rescue Query name

Yes, but... I'd like to:

1) retrive the name's query;
2) loop the queries;
3) check the ExecutionTime for each query;
4) if ExecutionTime > 3000 send an e-mail to developers

like this:

<cfset qNames = I don't know...>

<cfset qList = "">

<cfloop index="i" list="#qNames#" delimiters=",">

     <cfif  evaluate(i & ".getMetaData().getExtendedMetaData().executionTime") GT 3000>

          <cfset ListAppend(qList, i)>

     </cfif>

</cfloop>

<cfif ListLen(qList)>

     ... send an email...

</cfif>

could you help me, please?

thanks in advance

best regards