#! /usr/bin/perl -w

use strict ;
use warnings ;
use DBI;

my $prog = substr $0, rindex ( $0, '/' ) + 1 ;
my $Usage = <<USAGE ;
Usage: $prog [-v] [-q] [-d] [-f] args
option v : be verbose
option q : be quiet
option d : show debug info
option f : action ; otherwise dry-run
USAGE
sub Usage { die "$_[0]$Usage" ; }
sub Error { die "$prog: $_[0]\n" ; }
sub Warn  { warn "$prog: $_[0]\n" ; }

# usage: &GetOptions(ARG,ARG,..) defines $opt_ID as 1 or user spec'ed value
# usage: &GetOptions(\%opt,ARG,ARG,..) defines $opt{ID} as 1 or user value
# ARG = 'ID' | 'ID=SPC' | 'ID:SPC' for no-arg, required-arg or optional-arg
# ID  = perl identifier
# SPC = i|f|s for integer, fixedpoint real or string argument

use Getopt::Long ;
Getopt::Long::config ( 'no_ignore_case' ) ;
my %opt = () ; Usage '' unless GetOptions
  ( \%opt, qw(v q d f) ) ;
Usage("Arg count\n") unless @ARGV >= 0 ;

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

my @cols = qw(Name Price) ;
my $cols = join ',', @cols ;

$dbh->do("DROP TABLE IF EXISTS Cars");
$dbh->do("CREATE TABLE Cars (id INTEGER PRIMARY KEY AUTOINCREMENT, name TEXT, price INT)");
$dbh->do("INSERT INTO Cars ($cols) VALUES('Audi',52642)");
$dbh->do("INSERT INTO Cars ($cols) VALUES('Mercedes',57127)");
$dbh->do("INSERT INTO Cars ($cols) VALUES('Skoda',9000)");
$dbh->do("INSERT INTO Cars ($cols) VALUES('Volvo',29000)");
$dbh->do("INSERT INTO Cars ($cols) VALUES('Bentley',350000)");
$dbh->do("INSERT INTO Cars ($cols) VALUES('Citroen',21000)");
$dbh->do("INSERT INTO Cars ($cols) VALUES('Hummer',41400)");
$dbh->do("INSERT INTO Cars ($cols) VALUES('Volkswagen',21600)");

$dbh->disconnect();