#!perl -w
use strict;
use DBI;
my $dbh=DBI->connect("dbi:CSV(RaiseError=1):csv_eol=\n");
$dbh->{csv_tables}->{tbl1}->{file}='tmp.csv';
$dbh->{csv_tables}->{tbl2}->{file}='tmp2.csv';
$dbh->{csv_tables}->{tbl3}->{file}='combined.csv';
$dbh->do("CREATE TABLE tbl3 AS SELECT * FROM tbl1 NATURAL JOIN tbl2");