C:\www\NB.biz\html>type test.pl
#!e:/perl/bin/perl.exe -w
use strict;
use diagnostics;
print "Arg:", $ARGV[0], "\n";
$, = "\n";
opendir(DIR, $ARGV[0] ) or die ".: $!";
print "\nReaddir:\n", readdir(DIR);
rewinddir(DIR);
print "\nOnly directories:\n", grep {-d } readdir(DIR);
rewinddir(DIR);
print "\nJust named directories:\n", grep { -d $_ and $_ ne '.' and $_ ne '..'} read
dir(DIR);
closedir(DIR);