#!perl -w
use strict;
use File::Find;

my $start_dir = shift;
find( sub { system @ARGV if -d }, $start_dir );