perl -Sx "{0}" {"Parameters"}
exit

#!perl

($root) = @ARGV;

$/ = ':';

@dirs = (":");

while ($dir = shift @dirs) {
	chomp $dir; 
	print "TARGET \"$root$dir\"\n";
	opendir(DIR, "$dir:");
	@newdirs = ();
	while ($item = readdir(DIR)) {
		$item = "$dir:$item";
		if (-d $item) {
			push @newdirs, $item;
		} else {
			print "\t$item\n";
		}
	}
	unshift @dirs, @newdirs;
	closedir(DIR);
	print "\n";
}