Untitled

#!/usr/bin/perl
use warnings;use strict;
my ($buffer,$key,$value,$form,$pair,$missing,$name,$course,$gpa,$sport,$errors,$count);
my ($user,$pass,$db,$host,$connectInfo,$dbh,$sth);
my @pairs;
my (%form,%name,%course,%gpa,%sport,%errors);

print "Content-Type:text/html\n\n";

$buffer = $ENV{'QUERY_STRING'};
      @pairs = split(/&/, $buffer);
      foreach $pair (@pairs){
           ($key, $value) = split(/=/, $pair);
           $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
           $form{$key} = $value;
}

sub checkFields
{
        foreach my $key (keys %form)
        {
#       $count = 0;
        if ($form{$key} eq ""){
        $errors{$key} = "Please Enter Somethin for $key";
#       ++$count;
                }
        }
#       if ($count == 0){
#       connectDB();
#       }
}

#sub connectDB
#{
#       $user = "tom";
#       $pass = "boyg";
#       $host = "db-zenit.mysql";
#       $db   = "int420_101a07;
#}
print qq~
  <html><head><title>Student Survey</title>
  <style type="text/css">
  * {margin:0;padding:0}
  #container{width:960px}
  #myform{width:850px;margin-left:20px}
  ul{list-style-type:none}
  li{margin:10px}
  label{display:inline-block;width:190px;text-align:right;margin-right:10px}
  input{width:250px}
  .submit{margin-left:190px;float:left}
  </style>
  </head>
  <body>
~;

sub displayForm
{
        print qq~
        <div id="container">
        <div id="myform">
        <form action="aboutme.pl" method="GET">
        <fieldset>
        <legend>Student Survey</legend>
        <ul>
        <li><label>Full Name:</label><input type="text" name="name" value="$errors{'name'}" onclick="this.value='';" /></li>
        <li><label>Favourite Sport:</label><input type="text" name="sport" value="$errors{'sport'}" onclick="this.value='';"  /></li>
        <li><label>Favourite Seneca Course:</label><input type="text" name="course" value="$errors{'course'}" onclick="this.value='';" /></li>
        <li><label>Current GPA:</label><input type="text" name="gpa" value="$errors{'gpa'}" onclick="this.value='';" /></li>
        </ul>
        <ul>
        <li><button class="submit" type="submit">Send</button></li>
        <li><button type="reset">Reset</button></li>
        </ul>
        ~;
}
sub closeHtml
        {print "</fieldset></form></div></div></body></html>"}

checkFields();
i       $count = 0;
displayForm();
closeHtml();