The only thing I can get to the screen is the "Thank you for signing up $name" it doesn't seem to be doing the update as well. 
# store subparent for each parent
my %parent_hash = ( 'Father' => 'Mother',
                    'Mother' => 'Father' );

if ( @volunteer_date ){
if (exists $parent_hash{$parent}) {
  my $sub_parent = $parent_hash{$parent};

  for $col ( $parent, $sub_parent ) {
      $sql = "select $col from Roster where User=?";
      $sth = $dbh->selectcol_arrayref( $sql, undef, $user );
    if ( @$sth && $sth->[0] ) {  # any rows returned?
       $name = $sth->[0];  # take first one
      last;
    }
  }
}

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

$query->h1({-align=>'center'},"THANK YOU FOR SIGNING UP $name");


#seperates dates into signed up and duplicate signups.
foreach $date ( @volunteer_date ) {

        $sql = "select distinct Volunteer from Volunteer where Volunte
+er =? and Date =?";
        my $sth = $dbh->selectcol_arrayref( $sql, undef, $name, $date 
+);
           if( @$sth ) {
                push @dupe_dates, $date;
           } #end if statement
           else{
                push @signup_dates, $date;
           } #end else statement
} #end foreach loop

print $query->start_form('POST', './UnSignup.pl');

#process the signup dates.
foreach $signup_date ( @signup_dates ) {

        my $sql = "select max(Number) from Volunteer where Date =? and
+ Volunteer = 'TBD'";
        my $number = $dbh->selectcol_arrayref($sql, undef, $date);

        $sql = "update Volunteer set Volunteer = '$name' WHERE Date = 
+'$date' and Number = $number->[0]";
        $sth = $dbh->prepare($sql) || die "prepare: $$sql: $DBI::errst
+r";
        $sth->execute || die "execute: $sql->[0]: $DBI::errstr";
print $query->start_table({-align=>'center'}),
      $query->start_Tr({bgcolor=>'#9933FF'}),
      $query->start_th({-align=>'center', -colspan=>5}), $query->stron
+g('VOLUNTEER'),
      $query->start_th({-align=>'center', -colspan=>5}), $query->stron
+g('DATE'),
      $query->start_th({-align=>'center', -colspan=>5}), $query->stron
+g('UNDO'),
      $query->end_Tr;
      $query->start_Tr({bgcolor=>'#99FF99'}),
      $query->start_td({-align=>'center', -colspan=>5}), $query->stron
+g($name),
      $query->start_td({-align=>'center', -colspan=>5}), $query->stron
+g($signup_date),
      $query->start_td({-align=>'center', -colspan=>5}),  $query->chec
+kbox(-name=>"remove",-value=>$signup_date),
      $query->end_Tr;
print $query->end_table;

} #end foreach loop

#display the duplicate dates.
foreach $dupe_date ( @dupe_dates ) {
print $query->h1({-align=>'center'}, "You are already signed up for th
+is date: $dupe_date");
} #end foreach loop

print $query->center(
      $query->submit(-name=>'rows',
                       -value=>'Submit'),
      $query->reset);
print $query->end_form();



$sth->finish ();
$dbh->disconnect ();

} #end if volunteer_date check
else{
        print $query->h1({-align=>'center'}, "You did not select a dat
+e");

} #end else volunteer_date check


print $query->h2({-align=>'center'},
      $query->a({href=>'../../index.html'}, 'HOME'), '&nbsp',
      $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=>'UnSignup.pl'}, 'UNDO SIGNUP'), '&nbsp',
      $query->a({href=>'../BobSchedule.pl'}, 'BOBS SCHEDULE'), '&nbsp'
+,);
print $query->end_html;

print $query->h3({-align=>'center'},
      $query->a({href=>'Volunteer.pl'}, 'BACK'), '&nbsp',);
print $query->end_html;

[download]

In reply to Why won't my form print to screen by mnlight

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.