#!/usr/bin/perl -w
use diagnostics;
use strict;
use CGI ":standard";

⊤
my $state = param('state') || "";
if( $state eq 'res' )
{
    &res;
}
else
{
    &form;
}

⊥

##########################

sub form
{
    print p('Förnamn: ',   textfield('fname'), "\n");
    print p('Efternamn: ', textfield('ename'), "\n");
    print hidden(-name     => 'state',
		 -default  => 'res',
		 -override => 1,
		 );
}

sub res
{
    print p('Förnamn: ',   CGI::escapeHTML(param('fname')), "\n");
    print p('Efternamn: ', CGI::escapeHTML(param('ename')), "\n");

    print hidden('fname'), "\n";
    print hidden('ename'), "\n";
    print hidden(-name     => 'state', 
		 -default  => 'form',
		 -override => 1,
		 );
}

sub top
{
    print( header,
	   start_html( 'Namn...' ),
	   h1('Namn...'),
	   startform 
	   );
}

sub bottom
{
    print( p( submit ) );
    print( endform, end_html );
}