Help for this page

Select Code to Download

Select or download this
```
my @files = grep /^R/, readdir( DIR );
```

Select or download this

for my $filename (@files) {
    open my $inFile, '<', "$directory/$filename" or die "Can't open $d
+irectory/$filename: $!";
    ...
    close $inFile;
}