Help for this page

Select Code to Download

Select or download this

opendir(DIR,$dirpath);
my @A = readdir DIR;
...
...
my $entry = shift $A;
...

Select or download this
```
if (-f "$dirpath/$entry")
```