tblq

gistfile1.pl

#!/usr/bin/env perl

use strict;
use warnings;

use WWW::Tumblr;

die 'u need to specify some filesz' if not @ARGV;

my $t = WWW::Tumblr->new(
    user     => 'YOUR_USERNAME',
    email    => 'YOUR_EMAIL_ADDRESS',
    password => 'YOUR_PASSWORD',
    url      => 'YOUR_URL',
);

sub queue_image {
    my $img = shift;

    print " -> uploading $img..\n";

    $t->write(
        type  => 'photo',
        state => 'queue',
        data  => $img,
    ) or die $t->errstr;
}

queue_image $_ for @ARGV;