Help for this page

Select Code to Download

Select or download this

my $path = $ARGV[0] || '.';
my @files = read_dir($path, prefix => 1);
...
for my $file (@files) {
    say -f $file ? "$file is a file" : "$file is a dir";
}