Select Code to Download

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');
}