Help for this page

Select Code to Download

Select or download this
```
for (glob('*')) {
   print "$_\n";
}
```

Select or download this

opendir(my $dh, '.') or die $!;
for ( grep { !/^\.+$/ } readdir $dh ){
   print "$_\n";
}