Perl Net :: OAuth2 пример кода

Нужен пример кода (да, я просмотрел документацию CPAN) для аутентификации с использованием Net :: OAuth2

У меня есть следующее:

• ключ потребителя
• секрет потребителя
• ключ доступа
• секрет доступа

PS Обычно я считаю, что вы предоставляете ключ и секрет потребителя и получаете ключ доступа и секрет, но в этом случае они у меня уже есть.