my $sth = $dbh->prepare (qq;
    select foo, bar
    from   wobble
    where  barney = 42;
    );