#!/usr/bin/perl

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

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

    opendir D,$dir or die $!
    chdir $dir;
    @dirs=grep{-d} readdir D;
    closedir D;

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