つまんなくてごめんなさい。

0 2 * * * /Users/danjou/local/mounero.pl
#!/usr/bin/env perl

use strict;
use warnings;
use WWW::Mechanize;
use Config::Pit;

my $config = pit_get('tumblr.com');
my $mech = WWW::Mechanize->new;
$mech->post(
    'http://www.tumblr.com/login',
    $config
);
$mech->get('http://www.tumblr.com/reblog/213795352/lH4qzi1B');
$mech->form_id('edit_post');
$mech->select('channel_id' => 'mounero');
#$mech->field('post[two]' => '');

$mech->click_button(number => 1);

http://mounero.tumblr.com/