Buscar en Wikipedia [ PERL ]

Por medio de un módulo y con la ayuda del lenguaje Perl, podemos automatizar la búsqueda en Wikipedia.com.

Esto es con la finalidad de darle más funcionalidad a la terminal de comandos.

Ejemplo de búsqueda:

leo@lein:/usr/local/bin$ perl wiki.pl "lala"

Los 'lala' son un grupo de habla chibemba de unos 150000 individuos que viven en
Zambia central, al oeste del río Luangua.
leo@lein:/usr/local/bin$

Me devuelve el resultado de la búsqueda.

Aquí el código:

#!/usr/bin/perl
use strict;
use warnings;
if($#ARGV != 0)
{
 print "$0 \"Busqueda\"\n";
 exit(0);
}
$ARGV[0] =~ s/(\w+)/\u\L$1/g;
use WWW::Wikipedia;
my $wiki = WWW::Wikipedia->new();
$wiki = WWW::Wikipedia->new(language => 'es');
my $result = $wiki->search("$ARGV[0]");
if(!$result)
{
 print "Error: ", $wiki->error(), "\n";
 exit(1);
}
if($result->text())
{
     print $result->text();
 }
exit(0);