#!/usr/bin/perl print "Content-type: text/html\n\n"; print "Classical Pontiac Poll"; print ""; print "
"; print "\"Classical"; print "

"; print ""; print ""; print ""; print "

"; print "Images from Micrsoft's Car Point Auto Show '99

"; print "
"; print "
"; $file = 'total'; open(totalfile, $file) || die print "Can't create data file\n"; $total=; close(totalfile); $file = 'poll'; $i = 0; open(newfile, $file) || die print "Can't create data file\n"; print "
"; $_=; print "$_"; $number=; print "

"; print ""; while($i<$number) { $i=$i+1; $_=; open(responsefile, $i) || die print "Can't create data file\n"; $response=; close(responsefile); if($total>0) { $percent=int(($response/$total)*100); } else { $percent=0; } print ""; } print ""; print ""; print "
$_$response$percent%
Total$total
"; # print "

"; # while() # { # print "$_"; # } close(newfile); print "
"; print ""; print "

"; print "To vote click on the radio button to the left of your choice, then click \"Add My Vote\".

"; print "For an accurate poll please vote only once!"; print ""; print "
"; print "
"; print ""; exit; sub blank_response { print "
The form information was not complete and the new poll was not created. Click the Back button, complete the form, and send again. "; exit; }