#!/usr/bin/perl use CGI; # $sum # $count # $message $in = new CGI; # print qq{Content-type: text/html\n\n}; print $in->header, $in->start_html; $sum = $in->param('sum'); $count = $in->param('count'); $message = $in->param('message'); if ($message) { $arg = $in->param('arg'); $what = $in->param('what'); if ($what eq "Enter") { $sum += $arg; $count += 1; $message = "The sum is: " . $sum . " for " . $count . " numbers."; } elsif ($what eq "Calculate") { $message = "The average so far is: " . ($sum / $count); } elsif ($what eq "Restart") { $message = "Welcome."; $sum = 0; $count = 0; } } else { $message = "Welcome."; $sum = 0; $count = 0; } print qq{ $message }; print qq{};