#!/usr/bin/perl

use strict;
use warnings;
use utf8;
use Net::Twitter;
my $twit = Net::Twitter->new(
    traits => [qw/API::REST OAuth WrapError/],
    consumer_key    => '9THFVP9YgTNB3JIHFq029A',
    consumer_secret => '6dytN2yLcdSMEv9CvHiORmjn0sJ9b0osP02jMdr07iQ',
    ssl => 1,
);

$twit->access_token       ('87213331-U7CNfeuFbaziR06iULJsG1rRxjnu6CK654MkZK810');
$twit->access_token_secret('GRdPAH3ZBLyRqaLmsn2zXZQlyINkqMIG3aDPeoO8ng');
$twit->update('もへもへ');
exit;
__END__