#!/usr/bin/perl -w
use strict;
use warnings;

use DBI;
use DBD::SQLite;

my $dbh = DBI->connect("dbi:SQLite:dbname=foo", "", "", {AutoCommit => 1, RaiseError => 1});

$dbh->do("CREATE TABLE info (f1 char(3) primary KEY, f2 char(3), f3 char(3))");
$dbh->do('create unique index info_idx on info (f1)');

my $sth = $dbh->prepare("INSERT INTO info VALUES (?, ?, ?)");

$sth->execute("Fred", "Bloggs", "fred\@bloggs.com");             

$sth = $dbh->prepare("SELECT * FROM info");
$sth->execute();
while (my @row = $sth->fetchrow_array ) {
    print "@row\n";
}

$dbh->disconnect;