#!c:\perl\bin\perl.exe
#
# Wesentliche Parameter:
#
#
use strict;
use warnings;
use DBIx::Dump;
use DBI();

...

  $port = 3306;
  $dsn  = "DBI:mysql:database=$database;host=$hostname;port=$port";
  $dbh  = DBI->connect($dsn, $user, $pwd, {'RaiseError' => 1, AutoCommit => 1}) or die "Connect fehlgeschlagen: $DBI::errstr";

    $statement = "SELECT * FROM $tabelle ORDER BY SerNr ;";
    $sth  = $dbh->prepare($statement, { "mysql_use_result" => 1}) or die "Vorbereitung (prepare) fehlgeschlagen: $DBI::errstr";

    $sth->execute() or die "SQL kann nicht ausgefuehrt werden: $DBI::errstr";

    my $csv = DBIx::Dump->new('format' => 'csv', 'output' => $tabelle.".csv", 'sth' => $sth ); 
    $csv->dump();