my $error_messages = new MessageLibrary({
  file_open_failed => sub {"couldn't open file $_[0]: $!"}
});
...
open MYFILE, $myfile or die $error_messages->generate_message('file_open_failed', $myfile);