Select Code to Download

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