gdd2010quiz-2legged.pl

#!/usr/bin/perl
use strict;
use warnings;

my $key = '25698347741e8e2333f076da';
my $secret = 'f0e582e668f551733cec3394';
my $url = 'http://gdd-2010-quiz-japan.appspot.com/oauth/25698347741e8e2333f076da';

use Data::Dumper;
use OAuth::Lite::Consumer;
my $consumer = OAuth::Lite::Consumer->new(
    consumer_key       => $key,
    consumer_secret    => $secret,
    realm              => q{devquiz},
    site               => q{http://api.example.org},
    authorize_path     => $url,
);

print Dumper $consumer->request(
    url => $url,
    params => { hello => 'world' }
);