use File::Spec::Functions qw/ no_upwards catfile catdir /;
opendir my $dh, $path or die "$path: $!";
my @files = map { -d catdir($path,$_) ? catdir($path,$_)
	: catfile($path,$_) } sort +no_upwards readdir $dh;
closedir $dh;