Net::Twitter::Liteを使うとこんなにカンタン!! ほんとに5行のコードでつぶやけてしまいました。 #!/usr/bin/perl use Net::Twitter::Lite; use utf8; my $nt = Net::Twitter::Lite->new(username => 'DQNEO', password => 'hoge'); my $result = eval { $nt->update('ついったー!!') }; warn "$@\n" if $@; Net::Twitter::Lite バンザイ!!