Select Code to Download

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;

use Path::Class;
my @files = dir($path)->children();
# - or - 
my @files = dir($path)->absolute->children();