#!/usr/bin/perl

use Net::Google::AuthSub;

use warnings;

local $ENV{GOOGLE_DATAAPI_DEBUG} = 1;

my $auth = Net::Google::AuthSub->new;
my $response = $auth->login('person@place.com', 'xxxxxxxx');

if ($response->is_success) {
    print "Hurrah! Logged in\n";
} else {
   die "Login failed: ".$response->error."\n";
}