my $gbdata="http://www.perl03.georgeself.com/cgi-bin/forms.txt"; #### sub save { ... print GB "problem: ", param('problem'), "\n"; print GB "time: ", scalar(localtime), "\n"; ... } ... sub display { ... $prob=; my $time=; ... # print $time however you like }