twpost.pl

#!/usr/bin/env perl

use utf8;
use strict;
use Net::Twitter::Lite::WithAPIv1_1;

my $consumer_key    = 'dummy';
my $consumer_secret = 'dummy';
my $token           = 'dummy';
my $token_secret    = 'dummy';

my $nt = Net::Twitter::Lite::WithAPIv1_1->new(
    consumer_key        => $consumer_key,
    consumer_secret     => $consumer_secret,
    access_token        => $token,
    access_token_secret => $token_secret,
    ssl                 => 1,
);

my $post = 'もひとつてすと';
eval{$nt->update({status => $post});};
warn "Failed to tweet: $@\n" if ($@);