#!/usr/bin/perl -w

my @dirs;
my $sth;
my $gt;

my $dir ='/home/vendors/test/public_html';

opendir(D,$dir);
@dirs=grep( -d "$dir/$_" , readdir(D)) ;
closedir D;

foreach (sort @dirs) {print "$_\n"};
[download]

PerlMonks parthenogenetically spawned by Tim Vroom.
PerlMonks went on a couple dates, and then decided to shack up with The Perl Foundation.
Beefy Boxes and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.