Help for this page

Select Code to Download

Select or download this
```
open DIR, "/mail";
```

Select or download this

foreach my $f (glob ("/mail/*.*")) {
    open my $fh, "<", $f;
    print scalar <$fh>;
    }