How do I execute a shell command against each file in a directory and it's subdirectories? (was: looking for a quickie)

[Anonymous Monk]

Howdy ya'll,

I'm so out of touch with perl and I need an answer to this cause it's killing me :o! I've got to execute a shell command agianst each file in a directory and it's subdirectories ... for example

for each file available in "dir /s *.foo" i've got to execute "doit -switches $filename"

I know that perl can probably do this in a handful of lines but haven't used perl in about 3 years could someone please post a 'gimmie' ?

At one time I was like a 6th level monk here, now i can't even remember what my log in name was (buddha or something)

Edited 2003-03-19 by mirod: changed the title