Help for this page

Select Code to Download

Select or download this
```
select( (select (DM), ($- = 0))[0] );
```

Select or download this

for my $file (@files) {
   open my $fh, '<', $file;
...
   # Data adquisition stuff here
   write $fh;
}