The Code

  use Data::Phrasebook;

  my $q = Data::Phrasebook->new();
  $q->load(
              loader => 'XML',
              file   => 'phrases.xml',
              dict   => 'American'
  );

  my $mess1 = $q->fetch('hello');   # hello
  my $mess2 = $q->fetch('pavement');    # sidewalk