google_2legged_oauth.pl

use strict;
use warnings;

use OAuth::Lite;
use OAuth::Lite::Consumer;

my $ua = LWP::UserAgent->new;

my $request_url = 'http://gdd-2010-quiz-japan.appspot.com/oauth/5c2cac6d69ddbc14c5b30bcb';

my $consumer = OAuth::Lite::Consumer->new(
    consumer_key    => 'hogehoge',
    consumer_secret => 'piyopiyo',
    realm           => 'devquiz',
);

my $res = $consumer->request(
    method => 'POST',
    url    => $request_url,
    params => {hello => 'world'},
);

use YAML;
warn YAML::Dump($res);