#!/usr/bin/perl -w
use strict;
use WWW::Analytics::MultiTouch;

my $username = 'sandeep@autoworldindia.com';
my $password = '*******';
my $analytics_id = '******';
#Simple, all-in-one approach
# WWW::Analytics::MultiTouch->process(user => "$username", 
# 				pass => "$password", 
# 				id => "$analytics_id",
# 				start_date => '2010-01-01',
# 				end_date => '2010-02-01');

# Or step by step

my $mt = WWW::Analytics::MultiTouch->new(user => $username, 
					pass => $password, 
					id => $analytics_id);

 $mt->get_data(start_date => '2012-01-01',
 		end_date => '2012-05-20');
 
 $mt->summarise(window_length => 45);
 $mt->report(filename => 'report-45day.xls');

 $mt->summarise(window_length => 30);
 $mt->report(filename => 'report-30day.xls');