gistfile1.pl

#!/usr/bin/perl
 
use strict;
use warnings;
 
use utf8;
use Encode qw/encode_utf8/;
 
use Net::Twitter;
 
my $twitter = Net::Twitter->new(netrc=>1,legacy=>0);
 
eval {
    #$twitter->update("日本語テスト1");
    #$twitter->update({ status => "日本語テスト2" });
    #$twitter->update("日本語テスト3");
    #$twitter->update({ status => "日本語テスト4" });
    #$twitter->update({ 'status' => "日本語テスト5" });
    #$twitter->update({ encode_utf8('status') => "日本語テスト6" });
    
    # after "fixing" Net::Twitter
    # see: http://twitter.com/semifor_test
    $twitter->update("日本語テスト7");
    $twitter->update({ status => "日本語テスト8" });
};