here is the whole script I am getting a syntax error at line 46 near end_Tr; I am just seeing it!

#!/usr/bin/perl -w
#Volunteer.pl - Sign up sheet for Volunteers

use strict;
use DBI;
use CGI;

my $query = CGI::new();
my ($dbh, $sth);
my $count=1;$sth = $dbh->prepare ("SELECT Day, Date, count(*) FROM Vol
+unteer
                                                  where Volunteer = 'T
+BD' and Date > (CURRENT_DATE)-1
                                                  group by Date");

$sth->execute () or die "Couldn't execute statement: $DBI::errstr; sto
+pped";


print $query->header();
print $query->start_html (-title=>'Volunteer SignUp Form',
                          -link=>'#FFFFFF',
                          -vlink=>'99FF99',
                          -alink=>'black',
                          -style=>{'-src'=>'/CSS/stylesheet.css'});

print $query->h1({-align=>'center'},'1990 MNLIGHTNING SIGNUP SHEET');

print $query->h2({-align=>'center'},'To sign up for a time simply sele
+ct the botton indicating if you are the players Mother or Fath
er. Only Parents can sign up.  Other volunteers must sign up as the pa
+rents so we know who is responsible to work those days.
Select the dates you are available to work. Submit the information and
+ verify the choices are correct.');

print $query->start_form('POST', './Signup.pl'),
      $query->center(
      $query->radio_group( -name =>'Parent',
                           -value =>['Mother', 'Father'],
                           -default=>'Mother',
                           -linebreak=>'true'),

      $query->start_table({-align=>'center'}),
      $query->start_Tr({-align=>'center', bgcolor=>'#9933FF'}),
      $query->start_th({-align=>'center'}, strong('VOLUNTEER')),
      $query->start_th({-align=>'center'}, strong('DAY')),
      $query->start_th({-align=>'center'}, strong('DATE')),
      $query->start_th({-align=>'center'}, strong('NEEDED')),
LINE 49      $query->end_Tr;

while (my @val = $sth->fetchrow_array ())
{

print $query->start_Tr({-align=>'center', bgcolor=>'#99FF99'}),
      $query->start_td({-align=>'left'}), $query->checkbox(-name=>"Vol
+unteer", -value=>$val[1]),
      $query->start_td({-align=>'center'}, $val[0]),
      $query->start_td({-align=>'center'}, $val[1]),
      $query->start_td({-align=>'center'}, $val[2]),
      $query->end_Tr;
$count++,
my $user = $query->remote_user();
}
print $query->end_table;

      $query->center(
      $query->submit(-name=>'rows',
                       -value=>'Submit')),
      $query->reset,
      $query->end_form();
$sth->finish ();
$dbh->disconnect ();

print $query->h2({-align=>'center'},
      $query->a({href=>'../Schedule.html'}, 'SCHEDULE'), '&nbsp',
      $query->a({href=>'Roster.pl'}, 'ROSTER'), '&nbsp',
      $query->a({href=>'../News.html'}, 'NEWS'), '&nbsp',
      $query->a({href=>'../Pictures.html'}, 'PICTURES'), '&nbsp',
      $query->a({href=>'../BobSchedule.pl'}, 'BOBS SCHEDULE'), '&nbsp'
+,
                );
print $query->end_html;
exit(0)
[download]