#!/usr/bin/perl -w

@dirs = `ls -R |grep :`;

for $foo (@dirs) {

	chop $foo;
	chop $foo;
	print $foo . "\n";

	`pushd \"$foo\"; perl /var/lib/apache/vhosts/deep3.pkl.net/links.pl; popd`

}