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};
    }