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);

##</code><code>##

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

Readdir:

.
..
blank.htm
css
Document
graphics
index.htm
logo.htm
Menu.pl
NB.biz.tws
Products
test.pl
Only directories:

.
..
css
graphics
Products
Just named directories:

css
graphics
Products
C:\www\NB.biz\html>cd ..

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

Readdir:

.
..
blank.htm
css
Document
graphics
index.htm
logo.htm
Menu.pl
NB.biz.tws
Products
test.pl
Only directories:

.
..
Just named directories:

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

Readdir:

.
..
blank.htm
css
Document
graphics
index.htm
logo.htm
Menu.pl
NB.biz.tws
Products
test.pl
Only directories:

.
..
Just named directories:

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

Readdir:

.
..
blank.htm
css
Document
graphics
index.htm
logo.htm
Menu.pl
NB.biz.tws
Products
test.pl
Only directories:

.
..
Just named directories:

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

Readdir:

.
..
blank.htm
css
Document
graphics
index.htm
logo.htm
Menu.pl
NB.biz.tws
Products
test.pl
Only directories:

.
..
Just named directories:

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

Readdir:

.
..
blank.htm
css
Document
graphics
index.htm
logo.htm
Menu.pl
NB.biz.tws
Products
test.pl
Only directories:

.
..
Just named directories:

C:\www\NB.biz>