$sth=$dbi->prepare( q/
     SELECT * FROM my_table WHERE AVERAGE( cost ) < ?
     /) or die DBI->errstr;