#!/usr/bin/perl

use dinfo;

my $dinfo = new dinfo "DBI:mysql:dinfo";

my $r = $dinfo->search (nummer => prefix => "687190");

if ($r) {
   print "results: " . $r->rows . "\n";

   while (my $row = $r->fetch) {
      while (my ($k, $v) = each %$row) {
         print "$k:$v ";
      }
      print "\n";
   }
}

#my $r = $dinfo->search (ort => exact => "Karlsruhe");