# Extract and display a summary of information from the form.
    my @days = qw(Monday Tuesday Wednesday Thursday Friday Saturday Sunday);
    foreach my $day (@days)
    {
        my @times = $request->param($day);

        # Count the number of days the user selected something
        if(scalar @times) { $count += @times; }

        # Pretty up time times
        foreach(@times)
        {
            s/(\d{1,2}[ap])(\d{1,2}[ap])/\1-\2/;
            s/(a|p)/\1m/g;
        }

        # Display the list for each day
        $page .= "$day: " . (scalar @times == 0 ? "None" : "@times") . $request->br();
    }

    # Show the total number of hours selected in the summary
    $page .= $request->p() . "Total Hours Selected: $count" . $request->p();