my $verzeichnisname = '/usr/test'; 
unless (opendir(DIR, $verzeichnisname)) { 
  die "Error: couldn't open directory '$verzeichnisname': $!\n"; 
} 
my @files = readdir(DIR); 
closedir(DIR); 
}