Help for this page

Select Code to Download

Select or download this
```
package Constants;
use strict;
...

1;
```

Select or download this

use strict;
use Constants;
...
print $BAR,"\n";
print join(",",@A),"\n";
print "$_=>$H{$_}," foreach keys %H;