...
my @xmlfiles = ( 'content.xml', 'styles.xml' );

opendir(DIR, $rootdir) || die "can't opendir $rootdir: $!";
@template = grep { /[^.]/ } readdir(DIR);
print "- DEBUG -  @templaten";

foreach my $name (@template) {
print "- DEBUG -  $namen";
$process = X_Process->new($rootdir, $name, $askme);
$process->createDirs($docdir);
....

p.s. notato il topic polite??? 😀