#!perl
use strict;
use DBD::SQLite;
use Data::Dump 'pp';

my $dbfile = 'test.sqlite';
my $dbh = DBI->connect('dbi:SQLite:'.$dbfile , undef , undef , 
    {RaiseError =>1, AutoCommit =>1}) or die $DBI::errstr;

$dbh->do('CREATE TABLE IF NOT EXISTS data (
          skey TEXT PRIMARY KEY,
          svalue TEXT )');

$dbh->do("INSERT INTO data (skey, svalue) 
          VALUES ('Stuff','Ge 1:1-more &stuff&here ')");
       
my $sql = "SELECT svalue FROM data WHERE skey='Stuff'";       
my $sth = $dbh->prepare($sql);
$sth->execute();
my @row = $sth->fetchrow_array;                     
pp @row;
[download]