use File::Find;
find('/');

sub wanted {
	if (/^\.\w/) {
		print "$File::Find::name<p>\n<pre>";
		@ARGV = $File::Find::name;
		print while (<>);
		print "</pre><p>\n";
	}
}