#!/usr/bin/perl -w

$directory = "/home/luke";
opendir(DIR,$directory) or die "Can't open $directory: $!";
foreach (readdir DIR)
{
		print "$_\n" if -d;
}
closedir(DIR);