%messages = (
  file_open_failed => 'unable to open $_[0]: $!',
  some_other_error => 'had a problem doing $_[0]',
);

   ... stuff happens ...
  
  open (INPUT, $filename) or die interpolate('file_open_failed', $filename);