#!/usr/bin/perl

use File::Find;

sub do_something 
{ print $File::Find::name,"\n" } }

find(
{wanted=>\&do_something, 
#Call this subroutine
follow=>1},
"/path/stuff");
#Edit path here