Verzeichnisse mit Perl

[Dairaen]

Hi,
ich möchte ein Script schreiben, mit dem man sich die Verzeichnisse anzeigen lassen kann. Allerdings gibt mein Script (unten) nur . und .. aus. Woran liegt das?

opendir (VER, 'E:\Xitami');
@All = readdir(VER);
closedir (VER);

foreach $Names (@All)
{
if ( -d $Names)
{
print "Verzeichnis: $Names\n";
}
else
        {
print "Datei: $Names\n";
}
}