# ■なにかつぶやいてみる例
# このソースはかなり簡略化してますので、自分のソースに合った改変は必須かと思います。
# statuses/updateを使用して、結果をXMLで受け取る例です。

use LWP::UserAgent;
use Encode;
use Net::OAuth;
$Net::OAuth::PROTOCOL_VERSION = Net::OAuth::PROTOCOL_VERSION_1_0A;

# 前回取得したアクセストークンとシークレット
my $access_token = 'アクセストークン';
my $access_secret = 'トークンシークレット';

# 各APIメソッド毎にURLとリクエストメソッドが異なるので注意
my $API_Method_url = 'https://twitter.com/statuses/update.xml';
my $request_method = 'POST'; 

# なにかつぶやく
my $message = 'PENTAX K-7は良いカメラだぜぃ';

# OAuthリクエスト
my $request = Net::OAuth->request("protected resource")->new(
        consumer_key 	=> 'Twitterから取得したキー',
        consumer_secret => 'Twitterから取得しシークレット',
        request_url => $API_Method_url,
        request_method => $request_method,
        signature_method => 'HMAC-SHA1',
        timestamp => time,
        nonce => 'ランダム文字列',　# 毎回変更
        token => $access_token,
        token_secret => $access_secret,
        extra_params => { status => decode_utf8($message) },
   );

# extra_paramsに各APIメソッドのパラメータ値のハッシュをセットする（今回は"status"）
# decode_utf8についてはNet::OAuthのドキュメント(下記URL)を見てください。
# http://search.cpan.org/~kgrennan/Net-OAuth-0.19/lib/Net/OAuth.pm#I18N

$request->sign;

my $ua = LWP::UserAgent->new;
my $http_hdr = HTTP::Headers->new('User-Agent' => $ClientUA_name);
my $http_req = HTTP::Request->new($request_method, $API_Method_url, $http_hdr, $request->to_post_body);
my $http_res = $ua->request($http_req);

# 結果のXML
my $res_xml = $http_res->content;

これでつぶやくはず。。。

あ、ソースは全部utf8で書いてます。
あ、エラー処理とか全力で省いてます。
あ、今回色々試したい事もあったので、Net::OAuthにしましたですが、Net::Twitterとか使ったほうが、以外に簡単かもしれませんよ？ｗ

2010/02/06追記： Syntax-Hilighter入れてみたｗ

今回はbotがつぶやく仕様、これです。
botがつぶやくには、つぶやくTwitterアカウントでログインして、アプリの承認を自分で行います。

# 前回のソースから直接承認画面にリダイレクトする場合。
my $authorize_url = 'http://twitter.com/oauth/authorize';
my $request_token = '[取得したリクエストトークン]';
print "Location: ".$authorize_url."?oauth_token=".$request_token."\n\n";

リダイレクトすると、Twitteのアプリ承認画面が開きます。
この画面で許可を選択すれば、コールバックURLへリダイレクトされます。
※デスクトップクライアントの場合は、ここで暗証番号らしき数字が表示されるみたいです。それは、またの機会に確認してみます。

コールバックURLにリダイレクトされると同時に、承認済リクエストトークンとヴェリファイア値がPOSTされるので、適当な方法でこのPOST値を拾います。簡単な方法だとCGIモジュールとか。。。
で、今度はこの各値を使って、アクセストークンとシークレットを取得します。

# アクセストークンとシークレットの取得 --------------------
# このソースは簡略化してますので、自分のソースに合った改変は必須かと思います。

use CGI;
use LWP::UserAgent;
use Net::OAuth;
$Net::OAuth::PROTOCOL_VERSION = Net::OAuth::PROTOCOL_VERSION_1_0A;

my $q = CGI->new;
my $access_token = $q->param('oauth_token');　#承認済みトークン
my $access_verifier = $q->param('oauth_verifier');　#ヴェリファイア

my $access_token_url = 'http://twitter.com/oauth/access_token';
my $request_method = 'POST'; #アクセストークン取得はpostなので注意

my $request = Net::OAuth->request("access token")->new(
    consumer_key => 'Twitterから取得したキー',
    consumer_secret => 'Twitterから取得しシークレット',
    request_url => $access_token_url,
    request_method => $request_method,
    signature_method => 'HMAC-SHA1',
    timestamp => time,
    nonce => 'ランダム文字列',　#毎回変更
    callback => '',
    token => $access_token,
    verifier => $access_verifier,
    token_secret => '',
    );

my $ua = LWP::UserAgent->new;
my $http_hdr = HTTP::Headers->new('User-Agent' => $ClientUA_name);
my $http_req = HTTP::Request->new($request_method, $access_token_url, $http_hdr, $request->to_post_body);
my $http_res = $ua->request($http_req);

my $AccessTokenStr = $http_res->content;

こんな感じです。$AccessTokenStrは前回同様に分解して下さい。

2010/02/06追記： Syntax-Hilighter入れてみたｗ

で、コンシューマキーとシークレットを取得したら、その各値を使ってRequestTokenを取得します。

# ■リクエストトークンの取得
# このソースは簡略化してますので、自分のソースに合った改変は必須かと思います。
use LWP::UserAgent;
use Net::OAuth;
$Net::OAuth::PROTOCOL_VERSION = Net::OAuth::PROTOCOL_VERSION_1_0A;

my $request_token_url = 'http://twitter.com/oauth/request_token';
my $request_method = 'GET';

my $request = Net::OAuth->request("request token")->new(
    consumer_key 	=> 'Twitterから取得したキー',
    consumer_secret => 'Twitterから取得しシークレット',
    request_url => $request_token_url,
    request_method => $request_method,
    signature_method => 'HMAC-SHA1',
    timestamp => time,
    nonce => 'ランダム文字列', #要毎回変更
    callback => 'http://yoursite',　#アプリ登録時のコールバックアドレス
    );
# nonceとtimestampについてはhttp://oauth.net/core/1.0/#nonce を参照

$request->sign;

my $ua = LWP::UserAgent->new;
my $http_hdr = HTTP::Headers->new('Authorization' => $request->to_authorization_header);
my $http_req = HTTP::Request->new($request_method, $request_token_url, $http_hdr);
my $http_res = $ua->request($http_req);

my $RequestTokenStr = $http_res->content;

以上ｗ
$RequestTokenStrには
「oauth_token=[未承認RequestToken値]&oauth_token_secret=[ReuestTokenSecret値]&oauth_callback_confirmed=true」な感じで値が返りますので、Net::OAuth->responseや、その他お好みの方法で各値に分解します。

2010/02/06追記： Syntax-Hilighter入れてみたｗ

ざっとこんな感じ。。。ｗ
今の所アクセストークンの有効期限は無いみたいなので、一度取得したらそのまま使い続けられるようです。

使ったOAuthの為のモジュールはNet::OAuthで、OAuthのヘッダやPOST値を生成してLWP::UserAgentでGET/POSTします。