#!/usr/bin/perl
use strict;
use warnigs;

my $ordner = "E:/Test/testordner/";
my @files=("test1.txt","test2.txt");

print "Jetzt createCount.pl gestartet.\n";
system('createCount.pl', $ordner, @files)==0 or die(qq(Konnte "createCount.pl $directory @files" nicht erfolgreich ausführen! $!));