#!/usr/bin/perl
use warnings;
use strict;
use DBI;
my $dbh=DBI->connect('dbi:CSV:',undef,undef,{RaiseError=>1});
$dbh->do($_) for(
    "DROP TABLE IF EXISTS updateTest",
    "CREATE TABLE updateTest (phrase TEXT)",
    "INSERT INTO updateTest (phrase) VALUES('old')"
);
my($old) = $dbh->selectrow_array("
    SELECT phrase FROM updateTest
");
$dbh->do("
    UPDATE updateTest SET phrase=? WHERE phrase=?
",{},'new','old');
my($new) = $dbh->selectrow_array("
    SELECT phrase FROM updateTest
");
print "OLD: $old\nNEW: $new\n";
$dbh->do("
    DROP TABLE updateTest
");
$dbh->disconnect;
__END__