Alternatively, have a look at Re: How can I create an array of filenames?. That's truly recursive, and simple.

Jeroen
"We are not alone"(FZ)

With a little change:

our @list;
findfile('*');
sub findfile{
  my $glob = shift;
  for ( glob $glob ){
    push( @list, $_) if -f;
    findfile( $_.'/*' ) if -d;
  }
}
[download]