#!/usr/bin/perl
#
# http://stackoverflow.com/a/5645166/180275
#
use strict;
use warnings;
use WWW::Wikipedia;
use File::Slurp;
my $wiki = WWW::Wikipedia->new(language => 'de');
my $entry = $wiki->search('Freienstein');
binmode STDOUT, ':utf8';
print $entry->text();
print "Related entries:\n";
for my $related ($entry->related) {
print " $related\n";
}
'Freienstein' heißen folgende geographischen Objekte:
* ein Ortsteil der Gemeinde Blankensee, Landkreis Vorpommern-Greifswald, Mecklenburg-
Vorpommern
* Freyenstein (Gemeinde Neustadtl an der Donau), Katastralgemeinde Freienstein,
Ortsteil von Neustadtl, Niederösterreich
* Freienstein (Gemeinde Sankt Peter-Freienstein), Ortsteil von Sankt Peter-
Freienstein, Steiermark
* Freienstein ZH, Ortsteil der Gemeinde Freienstein-Teufen, Kanton Zürich
Bauten:
* Burg Freienstein, bei Beerfelden im Odenwaldkreis, Deutschland
* Burg Freienstein (Münster), Burgstelle in Stuttgart, Deutschland
* Wallfahrtskirche Maria Freienstein, Wallfahrtskirche in Sankt Peter-
Freienstein, Steiermark
'Freienstein' ist der Name folgender Personen:
* Josef Freienstein (1920–1985), deutscher Architekt und Politiker (CDU)
* Raphael Freienstein (* 1991), deutscher Radrennfahrer
* Thomas Freienstein (* 1960), deutscher Radrennfahrer und Radsporttrainer
* Wendelin Freienstein (1909–1973), deutscher Jurist und Verwaltungsbeamter
'Siehe auch:'
* Freyenstein
* Freistein
* Landschaftsschutzgebiet Grünland am Freien Stein
$entry->related returns a list of strings that are referenced as links in the text:
Related entries:
Blankensee (Vorpommern)
Freyenstein (Gemeinde Neustadtl an der Donau)
Freienstein (Gemeinde Sankt Peter-Freienstein)
Sankt Peter-Freienstein
Freienstein ZH
Burg Freienstein
Burg Freienstein (Münster)
Wallfahrtskirche Maria Freienstein
Josef Freienstein
Raphael Freienstein
Thomas Freienstein
Wendelin Freienstein
Freyenstein
Freistein
Landschaftsschutzgebiet Grünland am Freien Stein