Select Code to Download

C:\www\NB.biz\html>type test.pl
#!e:/perl/bin/perl.exe -w
...
print "\nJust named directories:\n",  grep { -d $_ and $_ ne '.' and $
+_ ne '..'} read
dir(DIR);
closedir(DIR);

C:\www\NB.biz\html>test.pl .
Arg:.
...
Just named directories:

C:\www\NB.biz>