#!/usr/bin/perl

use strict;
use warnings;

use utf8;

use Net::Twitter::Lite;

my $twitter = Net::Twitter::Lite->new(
  username => 'matsuu',
  password => 'xxxxxx',
);

eval {
  $twitter->update("日本語テスト1");
  $twitter->update({ status => "日本語テスト2" });
  $twitter->update("日本語テスト3");
  $twitter->update({ status => "日本語テスト4" });
};