use strict;
use warnings;
use DBI;

my $dbh = DBI->connect("dbi:SQLite:dbname=test.sqlite","","") or die DBI::errstr();

$dbh->do("UPDATE test SET spalte3='verändert' WHERE spalte2='zeile2'");

# Mal schaun
my $sth = $dbh->prepare("SELECT * FROM test");
$sth->execute();
while (my @row = $sth->fetchrow_array()) {
    local $, = '|';
    print @row,"\n";
}
# Geht doch;p
$sth->finish();
$dbh->disconnect();