my $sth = $dbh->prepare ("select * from foo where 1=0 ");