#!/usr/bin/perl -w
use strict;
use DBIx::Simple;

my $db = DBIx::Simple->new('dbi:SQLite:mydb.txt', '', '', { RaiseError => 1 });

eval {
    $db->query(
        'CREATE TABLE sales (customer, vendor, type, product, app, result)'
    );
};

while (<DATA>) {
    $db->query('INSERT INTO sales VALUES (??)', split);
}

__DATA__
...