Я ищу простую реализацию Perl, которая проверяет токен аутентификатора Google, созданный с использованием секретной информации на стороне сервера. Например,

Следующий URL-адрес Google позволяет вам кодировать секрет сервера в формате base32 (в следующем случае секретe4ytonjeim4hcsrhja5fe5kqfu) в виде QR-кода, который можно прочитать из приложения Google authenticator (см. изображение ниже):
https://chart.googleapis.com/chart?cht=qr&chs=100x100&chl=otpauth%3A%2F%2Ftotp%2Fmysite%3A29%3Fsecret%3De4ytonjeim4hcsrhja5fe5kqfu%26issuer%3Dmysite

Как только QR-код сканируется в приложение для проверки подлинности, он производит токены, такие как: 716340. Как мне проверить правильность токена?

Этот вопрос является Perl-эквивалентом этого вопроса Python:Реализация Google Authenticator в Python