#!/usr/bin/perl

use dinfo;

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

my $r = $dinfo->search (name => prefix => "Lehman",
                        vorname => like => "%arc%",
                        plz => exact => 76133);
print "results: " . $r->rows . "\n";
chomp;
while (my $row = $r->fetch) {
   while (my ($k, $v) = each %$row) {
      print "$k:$v ";
   }
   print "\n";
}