#!/usr/bin/perl -l
use strict;
use warnings;
use Data::Dumper::Simple;
use VUser::Google::ProvisioningAPI::V2_0;

BEGIN {
   for (keys %INC) {
       print "$_ => $INC{$_}" if $_ =~ /Google/;
   }
}

require 'gmail-tools.pl';

my $config_file = 'gmail.cfg';
my $config = get_credentials($config_file);

my $gmail = new VUser::Google::ProvisioningAPI($config->{domain}, $config->{user}, $config->{pass}, '2.0');

$gmail->RetrievePageOfEmailLists('.');

print Dumper($gmail->{result}) and exit;