#!/usr/bin/perl
use WWW::Mechanize::GZip;
`cat /dev/null >  /var/www/html/r.out`;
$m=`date --date="0 days ago" +'%-m'`;
$m=~ s/\n//g;
$d=`date --date="0 days ago" +'%-d'`;
$d=~ s/\n//g;
$y=`date --date="0 days ago" +'%-Y'`;
$y=~ s/\n//g;
$start=$m."/".$d."/".$y;
#$start=trim($start);
my $mech = WWW::Mechanize::GZip->new();
$response = $mech->post("http://domain.com/affiliates/login.ashx?tp=1"
+,[u=>'xxxxxx',p=>'yyyyyyy']);
$response = $mech->post("http://domain.com/affiliates/Extjs.ashx?s=sub
+affsummary",[start_date=>'8/7/2016',end_date=>'8/7/2016',csv=>'1']);
$mech->save_content("/var/www/html/uv__$y$m$d.csv");
print $response->content();
[download]