#!/usr/bin/perl

use strict;

my $verz="c:/Test";


sub verarbeite {
    my @files;
    my $x;
    chdir "${verz}/$_[0]";

    @files = glob("*.csv");

    open OUT, ">", "${verz}/Ergebnis/$_[1]";
    foreach my $file (@files) {
        print "Searching $file\n";
#
#
#
verarbeite("Import", "*.csv"); #