[% USE DBI('dbi:ADO:Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:/projekte/vdx/daten/users.mdb', '', '') -%]
[% FOREACH user = DBI.query( 'SELECT * FROM users' ) -%]
	[% user.id %] [% user.name %]
[% END -%]

##</code><code>##

use strict;
use warnings;

use DBI;
use DBD::CSV;

my $dbh = DBI->connect(qq{DBI:CSV:csv_sep_char=\\;});
$dbh->{'csv_tables'}->{'users'} =
{
    'file' => 'c:/projekte/vdx/daten/users.txt',
    'col_names' => ["id", "name"]
};

my $sth = $dbh->prepare("SELECT * FROM users");
$sth->execute;

while( my $row = $sth->fetchrow_hashref )
{
    print $row->{id}, ";", $row->{name}, "\n";
}