#!/usr/bin/perl

use warnings;
use strict;
use DBI;

my $dbh = DBI->connect("DBI:CSV:f_dir=csvdb") or die "Cannot connect: " . $DBI::errstr;

$dbh = DBI->connect("DBI:CSV:");
$dbh->{'csv_tables'}->{'index'} = {
                                    sep_char     => " ",
                                    quote_char   => undef,
                                    eol          => undef,
                                    escape_char  => undef,
                                    always_quote => 0,
                                    file => 'test.txt',
                                    col_names => ["pos", "qnt", "part", "housing"]
                                  };

my $sth = $dbh->prepare("SELECT * FROM index");
$sth->execute() or die "Cannot execute: " . $sth->errstr();

while (my @ausgabe = $sth->fetchrow_array) {
   print $ausgabe[0]."\t".$ausgabe[1]."\n";
} # while

$sth->finish();
$dbh->disconnect();

1;