my @files;
File::Find::find( sub { push @files, $File::Find::name}, '.' );