#!/usr/bin/perl
use strict;
use warnings;
use DBI;

my $dbh = DBI->connect("dbi:SQLite:dbname=mydb.txt","","");
die $! unless $dbh;

# customer vendor transType productCode appNumber resultCode
$dbh->do(qq{ CREATE TABLE sales
			(customer int, vendor int, type   char(10),
			  product int, app    int, result int)
			});

my $sql_fmt = "INSERT INTO sales VALUES(%d, %d, %s, %d, %d, %d)";
while(<DATA>) {
	my $sql = sprintf $sql_fmt, split;
	$dbh->do($sql);
}

__DATA__
10112	6768	cash	01020	00780	1
10112	6768	cash	01020	00780	0
10112	6768	credit	00040	01010	1
10112	3650	cash	01840	01200	0
14100	2410	credit	02840	00910	0
14100	5220	credit	01020	00780	1