Multi-lingual Websites (with XML) - The Code

  use Data::Phrasebook; 
   
  my $q = Data::Phrasebook->new(); 
  $q->load( 
              loader => 'XML', 
              file   => 'phrases.xml', 
              dict   => 'Welsh' 
  ); 
   
  my $err100 = $q->fetch('hello');  # hi 
  my $err101 = $q->fetch('speak');  # Wyt ti'n medru siarad Saesneg?