use strict;
use warnings;
use File::Find::Rule;
use Sort::Naturally;

my $dir = ".";

my @files = File::Find::Rule->file()->in( $dir );

print "$_\n" for nsort @files;