#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
use DBI;

my %db = (
   name => 'Kalmuecke',
   user => 'Kalmuecke',
   pass => 'passwort',
   host => 'localhost',
   port => 3306,
   type => 'mysql',
);

my $kunde  = $ARGV[0] || die "Usage: $0 <kunde>\n";
my $select = "select datensatz from kunden where kunde = '$kunde'";

my $con = "DBI:$db{type}:database=$db{name};host=$db{host};port=$db{port}";
my $dbh = DBI->connect($con, $db{user}, $db{pass}) or die DBI->errstr;
my $sth = $dbh->prepare($select) or die $dbh->errstr;

$sth->execute() or die $sth->errstr;

my %kunden;

while (my $msg = $sth->fetchrow_hashref) {
   push @{$kunden{$kunde}}, $msg->{datensatz};
}

$sth->finish or die $sth->errstr;
$dbh->disconnect or die $dbh->errstr;

print Dumper(\%kunden);