Select Code to Download

use Path::Class qw/dir/;
my @files = sort grep { !$_->is_dir && $_->basename=~/^[^.]/ }
    dir($path)->children;

use File::Spec::Functions qw/ no_upwards catfile catdir /;
opendir my $dh, $path or die "$path: $!";
...
    grep { ! -d catdir($path,$_) && /^[^.]/ }
    no_upwards readdir $dh;
closedir $dh;