#!/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();