This worked for me in the past, altho I stick to File::Find these days :)

sub dodir {
opendir(DIR,$_[0]);
my $dir = $_[0];
if ($dir !~ /\/$/) { $dir .= "/"; }
my @List=readdir(DIR); 
closedir(DIR);
splice(@List,0,2);
print "Reading $_[0]\n";
foreach $file (@List) {
 my $file = $dir.$file;
 if (-d $file) { dodir($file); }
    else { push(@Files,$file); }
 }
}

dodir($ARGV[0]);
foreach(@Files) { print $_,"\n"; }
[download]

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