Can't load 'C:/Perl/site/lib/auto/Text/CSV_XS/CSV_XS.dll' for module Text::CSV_XS: load_file:Die angegebene Prozedur wurde nicht gefunden at C:/Perl/lib/DynaLoader.pm line 230. 
 at C:/Perl/site/lib/DBIx/Dump.pm line 85 
Compilation failed in require at C:/Perl/site/lib/DBIx/Dump.pm line 85. 

#!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();

#!/usr/bin/perl

$| = 1;

use strict;
use warnings;

#use CGI::Carp qw( fatalsToBrowser );

sub GetModules {
    my $dp = shift;
    my ( $dh, $dn );
    my @m;
    opendir( $dh, $dp );
    while ( $dn = readdir($dh) ) {
        next if $dn =~ /^\.\.?$/;    # falls ., oder ..
        my $p = "$dp/$dn";
        push @m, GetModules($p) if ( -d $p );
        push @m, $p if ( -f $p ) && ( $p =~ /\.(pm|cgi|pl)$/i );
    }
    closedir($dh);
    return @m;
}

my @moddirs = @INC;
my $ismodule;

print "Content-Type: text/plain\n\n" if $ENV{'REMOTE_ADDR'};  # Falls auf Server

foreach my $d (@moddirs) {
    $d =~ s#\\#/#g if $d =~ /\\/;

    foreach my $m ( GetModules($d) ) {
        if ( $ismodule = ( $m =~ /\.pm$/i ) ) {
            $m =~ s/\.pm$//i;
            $m =~ s/^$d//;
            $m =~ s/\//::/g;
            $m =~ s/^:://;
            $m =~ s/::$//;
        }
        print "$m ";
        if ($ismodule) {
            eval "require $m; print \$" . $m . '::VERSION;';

            #eval "require $m; print \&" . $m . '::Version();' if $@;
        }
        print "\n";
    }
}

1;

=pod

Zeigt alle Module im @INC an

=cut