#!perl -Tw
use CGI qw(:standard);
use strict;
my $num = param('number') || 0;
print header, start_html;
print "Your number is $num.";
print start_form;
print hidden('number', $num + 1);
print submit('Get next number');
print end_form;
print end_html;