#!/usr/bin/perl $dirs=`find . -type d | sort -r`; @dir=split(/\s/,$dirs); for($i=0;$i<=$#dir;$i++) { $base=$dir[$i]; print ">> $base\n"; if(-e "$base/Makefile") { print "found Makefile\n"; system("make -C $base"); } }