> ./test.pl
Benchmark: timing 50000 iterations of bind, inline...
      bind: 53 wallclock secs (23.00 usr +  8.93 sys = 31.93 CPU)
    inline: 52 wallclock secs (21.68 usr +  8.98 sys = 30.66 CPU)

##</code><code>##

#!/usr/bin/perl -w
use strict;
use DBI;
use Benchmark qw/timethese/;
use Config::File;

my $c = Config::File->new( file => 'cppsu.config' );

my $h = DBI->connect( $c->db_datasource, $c->db_user,
                      $c->db_pass, { $c->db_args } );

timethese( 50000, {
  bind   => 'xbind',
  inline => 'xinline',
});

sub xbind {
  my $sql = 'SELECT edited FROM faq WHERE id = ?';
  my $sth = $h->prepare( $sql );
  $sth->execute( 1 );
  
  my @res = $sth->fetchrow_array;
  die unless @res == 1;
}

sub xinline {
  my $sql = 'SELECT edited FROM faq WHERE id = 1';
  my $sth = $h->prepare( $sql );
  $sth->execute;
  
  my @res = $sth->fetchrow_array;
  die unless @res == 1;
}