LWPでOauthクリア。とりあえずTwitterのタイムライン取得。

Net::Twitter なんかのモジュールがあれば、簡単にOAuth認証ができてるんだけど、レンタルサーバレベルでは基本入ってないので、LWPで認証をクリアしちゃいましょう。サンプルで、jsonで取得した内容を表示しています。
（アプリ登録は事前に済ましてね）

hoge

use LWP::UserAgent;
use HTTP::Request::Common qw(GET);

my $Auth = qq|OAuth oauth_consumer_key="******", oauth_nonce="******", oauth_signature="******", oauth_signature_method="HMAC-SHA1", oauth_timestamp="1372223529", oauth_token="******", oauth_version="1.0"|;

my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new( GET => 'https://api.twitter.com/1.1/statuses/user_timeline.json?count=2&user_id=******');
$req->header('Authorization' => $Auth);

my $res = $ua->request($req);

print "Content-Type: text/html\n\n";
print $res->as_string;
exit;

要はヘッダーに認証系の情報いれるだけなので、ソケット通信でもいけそうです。（未検証）
認証に必要は情報は、公式ドキュメントに書いてます。OAuth toolを使って「Authorization header」の部分を使用します。
https://dev.twitter.com/docs/api/1.1/get/statuses/user_timeline