#!/usr/bin/perl print "Content-type: text/html\n\n"; print qq!The Woburn Story---Results !; open(FILE,"/auto/inetpub/wwwroot/evidence99/woburn/data/hydrono") or die "Couldn't open file for reading: $!"; $hydrono=int(); close(FILE); open(FILE,"/auto/inetpub/wwwroot/evidence99/woburn/data/hydroyes") or die "Couldn't open file for reading: $!"; $hydroyes=int(); close(FILE); open(FILE,"/auto/inetpub/wwwroot/evidence99/woburn/data/leukemiano") or die "Couldn't open file for reading: $!"; $leukemiano=int(); close(FILE); open(FILE,"/auto/inetpub/wwwroot/evidence99/woburn/data/leukemiayes") or die "Couldn't open file for reading: $!"; $leukemiayes=int(); close(FILE); open(FILE,"/auto/inetpub/wwwroot/evidence99/woburn/data/bothno") or die "Couldn't open file for reading: $!"; $bothno=int(); close(FILE); open(FILE,"/auto/inetpub/wwwroot/evidence99/woburn/data/bothyes") or die "Couldn't open file for reading: $!"; $bothyes=int(); close(FILE); $hydro=$hydroyes+$hydrono; $both=$bothyes+$bothno; if ($hydro > 0) { $avg_hydro = int(($hydroyes / $hydro)*100); } else { $avg_hydro = 0; } if ($hydro > 0) { $avg_leukemia = int(($leukemiayes / $hydro)*100); } else { $avg_leukemia = 0; } if ($both > 0) { $avg_both = int(($bothyes / $both)*100); } else { $avg_both = 0; } print qq!

Results

Percent of Juries Finding for the Plaintiffs


Bifurcated Trial	$avg_leukemia% ^a
Non-Bifurcated Trial	$avg_both% ^b

^a When the trial was bifurcated, $hydroyes of $hydro juries ($avg_hydro%) found that W.R. Grace polluted Wells G and H, and $leukemiayes of those $hydro juries ($avg_leukemia%) found that Wells G and H caused leukemia in Woburn. ^b When the trial was not bifurcated, $bothyes of $both juries ($avg_both%) found that W.R. Grace caused leukemia in Woburn.

!; sub dienice { ($msg) = @_; print "

Error

\n"; print $msg; exit; }