| Subject: | Include wikipedia script |
It would be nice if a small script would be included to WWW::Wikipedia and installed by default. Attached is a sample script which optionally uses IO::Page to invoke a pager on the result.
#!/usr/bin/perl
use strict;
use WWW::Wikipedia;
use Text::Wrap;
my $wiki = WWW::Wikipedia->new;
my $entry = $wiki->search(shift);
eval { require IO::Page; };
print wrap "", "", $entry->text;