image uploader by meepsheep

    #!usr/bin/perl
    use strict;
    use Image::Grab;
    use MediaWiki::API;

    my $pic = new Image::Grab;
    my $url = $ARGV[0];
    $pic->url($url);
    $pic->grab;
    my $image = $ARGV[1];
    open(IMAGE, ">$image") || die"$image: $!";
    binmode IMAGE;
    print IMAGE $pic->image;
    close IMAGE;

    my $mw = MediaWiki::API->new();
    $mw->{config}->{api_url} = 'http://encyclopediadramatica.ch/api.php';
      $mw->login( { lgname => 'LOLYOURUSERNAMEHERE', lgpassword => 'LOLYOURPASSHERE' } )
    || die $mw->{error}->{code} . ': ' . $mw->{error}->{details};
    $mw->{config}->{upload_url} = 'http://encyclopediadramatica.ch/Special:Upload';


    open FILE, $image or die $!;
    binmode FILE;
    my ($buffer, $data);
    while ( read(FILE, $buffer, 65536) )  {
    $data .= $buffer;
    }
    close(FILE);

    $mw->upload( {
              title => $image,
              data => $data,
              ignorewarnings => 1} ) || die $mw->{error}->{code} . ': ' . $mw->{error}->{details};