$sth = $dbh->prepare(qq{
select $ouch,$this from $hurts
where $another = ?
}) or DoSomethingElse();