use strict;
use File::Find;
my @dirs = ( '/home/ned', '/usr/games' );
sub doStuff { print shift() . "\n"; }
find( sub { doStuff($File::Find::name) unless -d _ }, @dirs );