Help for this page

Select Code to Download

Select or download this

use constant {
    NULL => 0,
...
    print "$_ = $english_translation{$_}\n";
}