Google-oauth-sample-ark is a project mainly written in Perl, it's free.

Net::Google::Spreadsheets with Google OAuth or AuthSub sample for Ark