#!/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 $entry)
			{
				print "<", $entry,">"," ist ein Verzeichnis\n";
				$i++;
			}
			elsif(-f $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;