Select Code to Download

set autotrace on;
set timing on;
...
      0  sorts (disk)
      1  rows processed

use DBI;
use strict;
...
    $s = $h->prepare("select * from action where action_id = " . $_[0]
+->quote(1));
    $s->execute;
}

$ perl bm.pl
Benchmark: timing 10000 iterations of placeholders, quote...
placeholders:  3 wallclock secs ( 0.43 usr +  0.20 sys =  0.63 CPU) @ 
+15873.02/s (n=10000)
     quote: 16 wallclock secs ( 5.51 usr +  1.32 sys =  6.83 CPU) @ 14
+64.13/s (n=10000)