#!/usr/bin/perl -w
use DBI;
$dbh = DBI->connect("DBI:CSV:f_dir=/home/turn2sp/tmp")
        or die "Cannot connect: " . $DBI::errstr;
  $dbh->{'csv_tables'}->{'Matrix'} = { 'file' => 'Matrix.csv'};
  $dbh->{'csv_tables'}->{'Inventory'} = { 'file' => 'Inventory.csv'};
  $sth = $dbh->prepare("SELECT * from Matrix NATURAL JOIN Inventory");
  #$sth = $dbh->prepare("SELECT * FROM Inventory");

  $sth->execute();

  while ( @row = $sth->fetchrow_array ) {
    print "@row\n";
  }