use Net::Google::Calendar;
use Data::Dumper;

my $username = 'MEINE_EMAIL_BEI_GOOGLE';
my $password = 'MEIN_PASSWORT_FUER_GOOGLE';

my $cal = Net::Google::Calendar->new;
$cal->login($username, $password);

my @calendars = $cal->get_calendars;

foreach(@calendars){
  print Dumper $_."\n-----------------------------\n";
}