You need to be at least monk to get the picture there legally :o)

File::Find store the current filename in $_, so:

#!/usr/bin/perl
use File::Find;
$path = '/home/perl';
find(sub{push(@files, $_) unless (-d $_)}, $path);
print @files;
[download]

and @files will hold the filenames.