#!/usr/local/bin/perl -w

my $Startverzeichnis = 'H:';
my $i = 0;                                            #i entspricht Ordneranzahl
my $j = 0;                                            #j entspricht Dateien

opendir DIR, $Startverzeichnis or die $!;
while( my $entry = readdir DIR )
        {
                if($entry ne "." && $entry ne "..")
                {
                        if(-d "$Startverzeichnis/$entry")
                        {
                                print "<", $entry,">"," ist ein Verzeichnis\n";
                                $i++;
                        }
                        elsif(-f "$Startverzeichnis/$entry")
                        {
                                print "<", $entry,">", " ist eine Datei\n";
                                $j++
                        }
                        print $entry,"\n";
                }
        }
print $i, " = Anzahl der Verzeichnisse\n";
print $j, " = Anzahl der Dateien\n";
closedir DIR;