#!/usr/bin/perl -w

use strict;

my $Verzeichnis = "/usr/web/ars_vivendi";
opendir(DIR, $Verzeichnis) || die "$Verzeichnis: $!";
my @Dateien = readdir(DIR);