#!/usr/bin/env perl

use v5.36;

use strict;
use warnings;

use Data::Dumper;
use Carp;
use English;

my $dirfname = "."; # Start with working directory
my @files = findFiles($dirfname);

print Dumper(\@files);

exit(0);

sub findFiles($basedir) {
    my @fnames;
    my @dnames;
    opendir(my $dfh, $basedir) or croak($ERRNO);
    while((my $fname = readdir $dfh)) {
        if($fname =~ /^\./) {
            # Ignore "hidden" files
            next;
        }   
        my $fullname = $basedir . '/' . $fname;
        if(-d $fullname) {
            push @dnames, $fullname;
        } elsif(-f $fullname) {
            push @fnames, $fullname;
        } else {
            # It is something else, like a softlink. Ignore it for now
        }   
    }   
    closedir $dfh;
    
    # Only recurse AFTER closing the current dir, this way we won't exceed filehandle maximums
    foreach my $dname (@dnames) {
        push @fnames, findFiles($dname);
    }   
    return @fnames;
}