#!/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]