#!/usr/bin/perl -w use diagnostics; use strict; use CGI ":standard"; ⊤ my $state = param('state') || ""; if( $state eq 'res' ) { &res; } else { &form; } ⊥ ########################## sub form { my $fname = CGI::escapeHTML(param('fname')) || ""; my $ename = CGI::escapeHTML(param('ename')) || ""; print "

Förnamn: \n"; print "

Efternamn: \n"; print "\n"; } sub res { my $fname = CGI::escapeHTML(param('fname')) || ""; my $ename = CGI::escapeHTML(param('ename')) || ""; print "

Förnamn: $fname\n"; print "

Efternamn: $ename\n"; print "\n"; print "\n"; print "\n"; } sub top { print "Content-Type: text/html\n\n"; print "Namn...\n"; print "

Namn...

\n"; } sub bottom { print "

\n"; print "

\n"; }