my $sql1 = "select deptid,to_char(a.epfno) epfno,a.ename ename,desi
+g,decode(b.status,'P','उपस्थि
+40;','A','अवकाश','D','प्
+352;तिनियुक्त&#
+2367;')
status,b.rmk from Atnd_emp_mast a,Atnd_position b where repoid=1 and I
+SACTIVE=0 and a.epfno=b.epfno and SUMM_HOD_FLAG=1
and ATTEN_DT=to_date('17-12-2020','DD-MM-YYYY') order by SUMM_SORTID";
+
$sth =$dbh->prepare($sql1);
$sth->execute();
my @rows =$sth->fetchrow_array;
while (@rows=$sth->fetchrow_array)
{
binmode(STDOUT, ":utf8");
print join(",",@row),"\n";
}
made changes its still not working