my $sth = prepare(q{SELECT foo FROM bar WHERE baz='bap'})
   or die "Couldn't prepare statement: $DBI::errstr; stopped";