Help for this page
sub getGrades { my $grades; ... $grades =~ s/,$//; # remove trailing comma return $grades; }
sub storeData { my $table = shift; ... print $template->redirect('http://www.someserver.com/some/path/tha +nks.html'); }