use DBI;
use strict;
use warnings;
use Benchmark;

my $h = DBI->connect('dbi:Oracle:host=xxx;sid=yyy','xxx','xxx');
my $s = $h->prepare(q/select * from action where action_id = ?/);

timethese(10000, {
    'placeholders' => sub {placeholders($s)},
    'quote' => sub {quote($h)}});

sub placeholders {
    $_[0]->execute(1);
}

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