#!/usr/bin/perl

use strict;
use warnings;

#my $dir = 'Y:/900 Referenzdaten/';
my $dir = 'D:/users/roli/perl_scripts/';

opendir( DIR, $dir ) or die $!;

while ( my $file = readdir(DIR) ) {
  print "Verzeichnis: $file\n" if (-d $file);
  print "Datei      : $file\n" if (-f $file);
}

closedir(DIR);
exit 0;