#!/usr/bin/perl # $sum # $count # $message $input = $ENV{QUERY_STRING}; # reading print qq{Content-type: text/html\n\n}; @pairs = split(/&/, $input); foreach $pair (@pairs) { ($n, $v) = split(/=/, $pair); $in{$n} = $v; } # parsing: %in is created $sum = $in{sum}; $count = $in{count}; $message = $in{message}; if ($message) { $arg = $in{arg}; $what = $in{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{};