Select Code to Download

 my $sql1 = "select deptid,to_char(a.epfno) epfno,a.ename ename,desig,
+decode(b.status,'P','उपस्थि&#2340
+;','A','अवकाश','D','प्&#235
+2;तिनियुक्त&#23
+67;')
...
                    $f2 = join".",$f1,"xls";
                    system "copy $f1 $f2";
                    print "$f2 \n";

DEPTID    EPFNO    ENAME    DESIG    STATUS    RMK
19    3346927    ����� ����� ���    ����� ���������� (��.��.��.��)    
+�‰पस्थित    
...
9    2864045    ����� ����� �����    ����� ���������� (����� ��� �����
+� )    �‰पस्थित    
15    4415744    ��� ����    ����� ������� (���� ���� ������� ����� ) 
+   �…व�•ाश    
17    2860538    ����� �����    ���������  ������      �‰पस�
+��थित