C:\www\NB.biz\html>type test.pl
#!/usr/bin/perl -w
use strict;
use diagnostics;

print $ARGV[0], "\n";

opendir(DIR,  $ARGV[0] ) or die ".: $!";
#my @list = grep { -d and /^\.\.?/ } readdir(DIR);
my @list = grep { -d $_ and $_ ne '.' and $_ ne '..'} readdir(DIR);
closedir(DIR);
print  foreach ( @list ), "\n";

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

C:\www\NB.biz\html>test.pl ./products
./products
                         <<<< NO OUTPUT HERE???
C:\www\NB.biz\html>test.pl ./Products/
./Products/
                         <<<< OR HERE????
C:\www\NB.biz\html>cd products
C:\www\NB.biz\html\Products>../test.pl .
.
Books
C:\www\NB.biz\html\Products>