Help for this page

Select Code to Download

Select or download this

for my $next (@ARGV){
  opendir(PWD,"$next") and
...
  closedir PWD or die $!;
  print "$_\n" for @files;
}

Select or download this
```
s/test/whatever/ and print or print;
```