#!/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";
		}
	}
}