#!/usr/local/bin/perl

sub find {
	local($dir)=@_;

	opendir(DIR,$dir) && print "$dir\n";
	for (sort readdir DIR)
	{
		next if /^[.][.]?$/;
		$path="$dir/$_";
		print "$path\n";
		lstat "$path";
		&find($path) if -d _;
	}
}

foreach (@ARGV)
{
	&find ($_);
}