Help for this page

Select Code to Download

Select or download this

use File::Spec::Functions qw( catfile );

...
   or die("Unable to read utilities directory \"$dir\": $!\n");

my @files = grep { !-d catfile($dir, $_) } readdir($dh);

Select or download this

my @files = grep { !-d }
            map { catdir($dir, $_) }
            readdir($dh);