or download this
my $error_messages = MessageLibrary->new({
file_open_error => sub{"Couldn't open $_[0]: $!"},
bad_token => sub{"Invalid token $_[0] encountered on line $_[1]"},
...
starting_parse_phase => "Starting parser...",
generating_results => sub {"Generating results for element $_[0]"},
});