#!/usr/bin/perl -w
# Given a list of directories, list all the files (not directories)
# under each of them.

$| = 1;
$V = 1;

for $x (@ARGV) {
	if    (-d      "$x") {$d =      "$x"}
	elsif (-d "http/$x") {$d = "http/$x"}
	else {print STDERR "$0: No directory $x\n"; next}
	print "$d:\n" if $V>1;
	system "find $d -type f -exec ls      {} ';'";
#	system "find $d -type f -exec ls -lid {} ';'";
}