#!/usr/bin/perl

use strict;
use warnings;
use MediaWiki::API;

my $url = 'http://en.wikipedia.org/w/api.php';
my $mw = MediaWiki::API->new( {api_url => $url} );

binmode STDOUT,':encoding(utf8)';
if ( my $ref = $mw->api({ action => 'query', 
    meta => 'siteinfo' } )) {
    print $ref->{query}->{general}->{sitename}, "\n";
}
        
my $page = $mw->get_page( { title => 'Main Page' } );
print $page->{'*'}, "\n";