The Code

  use Data::Phrasebook;

  my $q = Data::Phrasebook->new(
              loader => 'YAML',
              file   => 'phrases.yaml'
  );

  my $error = $q->fetch('100');  # returns 'Oops you did something wrong!'