use strict;
use Data::Dumper;
use warnings;
use MediaWiki::API;
my $url = "http://en.wikipedia.org/w/api.php";
	# Log into the wiki domain
	my $mw = MediaWiki::API->new();
	$mw->{config}->{api_url} = $url;
	# Username and password can be changed depending on the administrator of the domain.
	my $username = "Dan_J";
	my $password = "password";
	
	#my $domain = 'MITdomain';
	# log in to the wiki
  $mw->login( { lgname => $username, lgpassword => $password } )
    || die $mw->{error}->{code} . ': ' . $mw->{error}->{details};