use strict;
use warnings;
use Cwd 'getcwd';

## cwd  
my $cwd = getcwd; 

## Get files from cwd 
my $res = _list_files($cwd);

sub _list_files {

        my $dir = shift;
        my $files = shift;

        opendir(my $dh, $dir) || die "Error opening: $dir\n";

        while (my $fn = readdir($dh)) {

                ## skip hidden
                next if $fn =~ /^\./;

                ## file, fullpath name
                my $file = $dir . "/" . $fn;

                ## add
                push(@{ $files }, $file); 

                ## dir, decend
                if (-d $file) {

                        ## sub-directory files
                        $files = _list_files($file, $files);
                }
        }

        #closedir($dh); # Not necessary; auto-closed on end of scope

        return $files;
}