use strict;
use LWP::UserAgent;

# ====== Parameters to change ===============
my $burl = 'http://www.example.com/'; # don't forget the trailing slash
my ( $usr, $pwd, $uid ) = ( 'admin', 'secret', 1 ); # uid=1 if you are the initial administrator
my $title = "Wordpress Post title";
my $body  = "Wordpress body text";
# ===========================================

# ua
my $ua = LWP::UserAgent->new;
#$ua->agent('wp-poster');
$ua->cookie_jar({});

# login
print "Login : ";
my $req = HTTP::Request->new( POST => $burl . 'wp-login.php' );
$req->content_type('application/x-www-form-urlencoded');
$req->content( sprintf('log=%s&pwd=%s&wp-submit=1&redirect_to=wp-admin/post-new.php',$usr,$pwd) );
my $res = $ua->request( $req );

if ( $res->is_success )
{
        print "SUCCESS!!\n";
        print $res->content;
        ##### Yes, we're successfull, but Wordpress says cookies aren't enabled... Huh ??
}
else
{
        print "FAILURE!!\n";
        &debug($res, 0);
        exit(1);
}