#!/usr/bin/perl
# You'll need the DBI package, if not installed do the following within Ubuntu
# sudo perl -MCPAN -e shell
# cpan> install DBI
# cpan> install DBD::SQLite module

use strict;
use DBI;

my $dbh = DBI->connect(          
    "dbi:SQLite:dbname=test.db", 
    "",
    "",
    { RaiseError => 1}
) or die $DBI::errstr;

$dbh->do("DROP TABLE IF EXISTS Cars");
$dbh->do("CREATE TABLE Cars(Id INT PRIMARY KEY, Name TEXT, Price INT)");
$dbh->do("INSERT INTO Cars VALUES(1,'Audi',52642)");
$dbh->do("INSERT INTO Cars VALUES(2,'Mercedes',57127)");
$dbh->do("INSERT INTO Cars VALUES(3,'Skoda',9000)");
$dbh->do("INSERT INTO Cars VALUES(4,'Volvo',29000)");
$dbh->do("INSERT INTO Cars VALUES(5,'Bentley',350000)");
$dbh->do("INSERT INTO Cars VALUES(6,'Citroen',21000)");
$dbh->do("INSERT INTO Cars VALUES(7,'Hummer',41400)");
$dbh->do("INSERT INTO Cars VALUES(8,'Volkswagen',21600)");

# NOTE: Update the price

$dbh->do('UPDATE Cars SET Price = ? WHERE Name = ?',
undef, 99999, 'Audi');

# SELECT price FROM cars WHERE Name = 'Audi';
my $sql = 'SELECT Id, Price FROM cars WHERE Name = ?';
my $sth = $dbh->prepare($sql);
$sth->execute('Audi');
while (my @row = $sth->fetchrow_array) {
	print "Id: $row[0] Price: $row[1]\n";
}

$dbh->disconnect();