Select Code to Download

#!perl -w
use strict;
...
    last unless @$cols;
    print ++$count . ". @$cols\n";
}

#!perl -w
use strict;
...
$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");