Select Code to Download

use strict;
use warnings;
...

        print "$v1,$v2,$v3,$v4,$v5\n";
    }

SELECT sum(EMAIL_IRT),sum(DROP_CALL_COUNT),sum(ANS_CALL_COUNT),sum(EMA
+ILS_IN),sum(EMAILS_OUT) FROM CS_STATS WHERE DATE_ADDED >= TO_DATE(?,\
+'yyyy-mm-dd\') AND DATE_ADDED <= TO_DATE(?,\'yyyy-mm-dd\')

my $yesterday = DateTime-> now(time_zone=>'Asia/Calcutta')->subtract( 
+days => 1 );

...

my $finaldt1 = $y_year."-".$y_month."-01";
my $finaldt2 = $yesterday->ymd;