$sth = $dbh->prepare( "select blah from table" )
    or die "Prepare failed: ", $dbh->errstr;
##</code><code>##

$dbh->{RaiseError} = 1;
$sth = $dbh->prepare( "select blah from table" )
##</code><code>##

$dbh->{RaiseError} = 1;
eval {
  my $sth = $dbh->prepare("select blah from table");
  $sth->execute();
};
if ($@) {
  warn "Transaction aborted: $@";
  eval { $dbh->rollback };
  die "Unable to rollback: $@" if $@;
}
##</code><code>##

print map{substr'hark, suPerJacent other l',$_,1}(11,7,6,16,5,1,15,18..23,8..10,24,17,0,12,13,3,14,2,4);