#!/usr/bin/env perl
use strict;
use warnings;
use DBI;
my $dbh = DBI->connect('dbi:CSV:', undef, undef, {f_dir => '/tmp', f_ext => '.txt'}) or die $DBI::errstr;
my $select = $dbh->do('CREATE TABLE CombineDie1Die2 AS SELECT WL, BL, Die1, Die_2 as Die2 from Die1_10k a, Die2_10k b Where a.WL = b.WL and a.BL = b.BL') or die "Failed to execute - " . $dbh->errstr;