gistfile1.pl

#!/usr/bin/env perl

use strict;
use warnings;

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

INIT {
    my $c = OAuth::Lite::Consumer->new(
        consumer_key => 'key',
        consumer_secret => 'secret',
        site => 'http://term.ie',
        request_token_path => '/oauth/example/request_token.php',
        access_token_path => '/oauth/example/access_token.php',
        authorize_path => 'http://example.org/authorized',
    );

    my $rt = $c->get_request_token(callback => 'http://example.org/callback');
    say $c->url_to_authorize(token => $rt);
}

__END__