use strict;
use File::Find;

my @files;
find(sub { push @files, $File::Find::name }, '.');
print "I found the following files:\n";
print "$_\n" for @files;