A lot has changed since DBD-CSV-0.22! That version was from April 2005.

At the moment of writing, the current versions are:

DBI-1.631
DBD::CSV-0.44
Text::CSV_XS-1.10
SQL::Statement-1.405
[download]

My first hunch would be, with your old versions, to add the schema:

my $sth = $dbh->prepare (q{select * from "root".export});
$sth->execute;
while (my $h = $dbh->fetchrow_hashref) {
    # Don't know if casing of fieldnames is sane in those versions
    # YMMV, $dbh->{FetchHashKeyName} = "NAME_lc"; might help
    print "ID: ", $h->{id}, ", SN: ", $h->{service_name};
    }
[download]