Select Code to Download

#!/usr/bin/env perl
use strict;
...
use DBI;
my $dbh = DBI->connect('dbi:CSV:', undef, undef, {f_dir => '/tmp', f_e
+xt => '.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;