This file holds the report
for sales over August 2013

id,count,description,price
FAIL,,Placeholder,0.00
\N,,,
10D2,4,Drill 9mm,0.80
11E1,1,Festool DRC 18/4.515.15

##</code><code>##

#!/usr/bin/perl

use 5.20.0;
use warnings;

use DBI;

my $dbh = DBI->connect ("dbi:CSV:", undef, undef, {
    f_dir          => ".",
    csv_auto_diag  => 1,
    });

$dbh->{csv_tables}{stock} = {
    file        => "stock.csv",
    skip_rows   => 2,
    skip_before => 3,  # nonexisting option
    # look ma, no col_names
    };

my $sth = $dbh->prepare ("select * from stock");
$sth->execute;
while (my $row = $sth->fetch) {
    say "@$row";
    }

$dbh->do ("update foo set price = 420 where id = '11E1'");
$dbh->disconnect;