抄的perl小程序（实现自动贴图）

#!/usr/bin/perl -w
use 5.010;
use strict;
use WWW::Mechanize;

die unless -e $ARGV[0];
my $mech = WWW::Mechanize->new();
my %servers =
    (
     "" => {image => $ARGV[0]},
     "" => {userfile1 => $ARGV[0]},
     "http://imagebin.org/index.php?page=add" => {nickname => 'null', image => $ARGV[0], disclaimer_agree => 'Y'},
     "" => {poster => 'null', code2 =>'', screenshot => $ARGV[0]},
    );
my $server = (keys %servers)[rand keys %servers];
$mech->get($server);
$mech->submit_form(with_fields => $servers{$server});
if ($mech->success()) {
    my $url = $mech->uri();
    system("echo $url | xsel -i");
    say $url;
}