#!/usr/bin/perl
use strict;
use lib '../lib';
use Continuity;
Continuity->new->loop;
sub main {
my $request = shift;
$request->print(qq{
<form>
Enter first number:
<input type=text name=num><input type=submit>
</form>
});
$request->next;
my $num1 = $request->param('num');
$request->print(qq{
<form>
Enter second number:
<input type=text name=num><input type=submit>
</form>
});
my $num2 = $request->next->param('num');
my $sum = $num1 + $num2;
$request->print(qq{
<h2>The sum of $num1 and $num2 is $sum!</h2>
});
}