select ? from ... where ..

##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;
use DBI;

my $dbh=DBI->connect('dbi:SQLite:dbname=/tmp/foo.sqlite','','',{ RaiseError => 1 });
my $sth=$dbh->prepare('select ? as answer');
$sth->execute(42);
$sth->dump_results();

##</code><code>##

'42'
1 rows

##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;
use DBI qw( SQL_INTEGER );

my $dbh=DBI->connect('dbi:Pg:dbname=postgres','postgres','postgres',{ RaiseError => 1 });
my $sth=$dbh->prepare('select ? as answer');
$sth->bind_param(1,42,SQL_INTEGER);
$sth->execute();
$sth->dump_results();

##</code><code>##

42
1 rows