-rwxr-xr-x    1 rhettbull Domain U      294 Aug 31 10:59 dirs.pl
drwxr-xr-x    2 rhettbull Domain U        0 Aug 31 10:58 testdir

##</code><code>##

#!/bin/perl

use strict;
use warnings;

my $lookhere = shift || '.';

parse_dir($lookhere);

sub parse_dir
{
	my $rootdir = shift || '.';
	my @listing = `ls -l $rootdir`;
	foreach (@listing)
	{	
		chomp;
		if (/^d/)
		{
			my $dir = (split /\s+/, $_, 10)[9];
			print "$dir\n";
		}
	}
}