#!/usr/bin/perl

use warnings;
use strict;

my $Verzeichnis = "d:\\test";

opendir(DIR, $Verzeichnis) or die $!;
my @array = readdir(DIR);
closedir(DIR) or die $!;

print join("\n", @array);

1;