Ok. So your "database" is defined here:

my $gbdata="http://www.perl03.georgeself.com/cgi-bin/forms.txt";
[download]

All you should need to do is add a line to save() and a few more lines to display():

sub save {
    ...
    print GB "problem: ", param('problem'), "\n";
    print GB "time: ", scalar(localtime), "\n";
    ...
}

...

sub display {
    ...
    $prob=<GB>;
    my $time=<GB>;
    ...
    # print $time however you like
}
[download]

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)