#!/usr/bin/perl print "content type:text/html\n\n"; print""; open(FILE,"; close(FILE); @Datas = split(/\t/,$data); @scheme_a = ('finance','discretionary','nsdp','isp','vambay','compactor','mp','mla','saving','drought'); foreach $scheme ( @scheme_a ) { if ($scheme eq 'mla') { print "

M.L.A Fund

"; } elsif ($scheme eq 'mp') { print "

M.P Fund

"; } elsif ($scheme eq 'discretionary') { print "

Discretionary amount under XIth Finance Commission Recommendation Scheme 2000–01 & 2001-02

"; } elsif($scheme eq 'finance') { print "

XIth Finance Commission Scheme 2000–01 & 2001-02

"; } elsif($scheme eq 'nsdp') { print "

NSDP - 2001-2002

"; } elsif($scheme eq 'isp') { print "

Integrated Sanitation Program

"; } elsif($scheme eq 'vambay') { print "

VAMBAY

"; } elsif($scheme eq 'saving') { print "

Small Saving Fund 2001-2002

"; } #elsif($scheme eq 'compactor') #{ # print "

Supply and Delivery of Mobile Compactor

"; #} elsif($scheme eq 'drought') { print "

Drought Relief - 2002

"; } elsif($scheme eq 'drainage') { print "

Under Ground Drainage Scheme

"; } elsif($scheme eq 'harvest') { print "

Provision Of Rain Water Harvesting Structures

"; } elsif($scheme eq 'street') { print "

Street Lights

"; } print ""; foreach $var(@Datas) { print "\n"; } print ""; open(FILE,"; close(FILE); foreach $line(@data) { @datas = split(/\t/,$line); print ""; foreach $var(@datas) { print "\n"; } print ""; } $est,$allo,$cont,$expe = 0; foreach $var (@data) { @line = split(/\t/,$var); $est = $est +$line[2]; $allo = $allo+$line[3]; $cont = $cont+$line[4]; $expe = $expe+$line[12]; } print "
"; print "$var"; print "
"; if ($var eq '') {print ' ';} else {print "$var ";} print "
  Total $est $allo $cont               $expe  


"; }