#!/usr/bin/perl -w
use strict;
use diagnostics;
use Data::Table;

my $t1 = new Data::Table( [ [ 1, 2, 3 ], [ 10, 20, 30 ] ], [ 'A', 'B' ], 1 );
my $t2 = new Data::Table( [ [ 1, 2, 3 ,4], [ 11, 22, 33,44 ] ], [ 'C', 'D' ], 1 );

print $t1->csv;
print "-------\n";
print $t2-;csv;

print "-------\n";
$t1->join($t2,3,["A;],["C"]);
print $t1->csv;
exit;

=head EXPECTED RESULT...
A,B,D
1,10,11
2,20,22
3,30,33