use Net::Google::Calendar;

my $cal = Net::Google::Calendar->new( url => $non_default_url );
my $username='xxxxx@gmail.com';
my $password='xxxxxxxx';

$cal->login($username, $password);
# or $cal->auth($username, $auth_token) obviously



for ($cal->get_events()) {

my ($start, $finish) = $_->when();
 print "Start Time:${start}\n";
 print "End Time:${finish}\n\n";
 print $_->title."\n";
 print $_->content->body;
 print $_->location;
 print "\n*****************************************************\n\n";
 print $_->id."\n\n";
}