Help for this page

Select Code to Download

Select or download this

opendir my $dh, $dir or die $!;
my $entries = grep {1} readdir $dh;