use warnings;
use strict;
use Mail::Webmail::Gmail;

my $gmail = Mail::Webmail::Gmail->new( 
                username => '', password => '', proxy_name => 'localhost:3128'
            );

my @labels = $gmail->get_labels();

print "Number of labels returned: ".scalar (@labels)."\n";
	
foreach my $label (@labels) {
	print "Label: $label\n";
}