Last Year's Standings


Bowling Lane Team Scoresheet

Welcome to the Central Illinois bowling Club site. We meet the third Saturday of the month from September through March. We decide on a restaurant for dinner, the meet at a bowling alley. There are four bowling centers we use and use the centers on a rotating basis. We welcome persons of all ages who want to:

Provide your name and phone number if you are interested. The coordinator (me) will contact you soon.

First name: Last name:



Select other sports you participate in:
Baseball
Tennis
Golf
Running
Football

#### #!/usr/bin/perl -wT use strict; use CGI; my $obj = new CGI; my $datastring =""; # read information from form my $fname = $obj->param( "fname" ); my $lname = $obj->param( "lname" ); my $gender = $obj->param( "gender" ); my $age = $obj->param( "age" ); my $Skill = $obj->param( "Skill" ); my $sport2 = ""; foreach my $sport (@sport) { $sport2 .= "$sport "; } # Save the data into a text file $datastring = "Saved Data\n\nFirst name: $fname\nLast name: $lname\nGender: $gender\nAge: $age\nSkill: $Skill\nSports: $sport2\n\n"; open(OUTDATA, ">>", "data.txt") or die "Error in opening file data.txt"; print OUTDATA $datastring; close(OUTDATA); #Send the info back print $obj->header( "text/html" ), $obj->start_html( -title => "Form Data", -topmargin =>"0" ), $obj->h1("User information"), $obj->p("User name: $fname"), $obj->p("Last name: $lname"); $obj->p("Gender: $gender"), $obj->p("Age: $age"), $obj->p("Skil: $skill"), $obj->p("Sports: $sport2"), $obj->end_html;