#!/usr/bin/perl

use dinfo;

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

my $r = $dinfo->search (nummer => exact => 7199, vorwahl => exact => "07066");
print "results: " . $r->rows . "\n";
chomp;
while (my $row = $r->fetch) {
   while (my ($k, $v) = each %$row) {
      print "$k:$v ";
   }
   print "\n";
}