You can use File::Find...

#!/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
[download]

IIRC, there has been a thread on this numerous times before...
Update: A long, long time ago, in a galaxy far away... uhm wait, other story :) anyway, Recursion example (Directory sizing on the side)

Greetz
Beatnik
... Quidquid perl dictum sit, altum viditur.