#!/usr/bin/perl -wT use strict; use CGI qw(:standard); my $var1 = param('one'); my $var2 = param('two'); my $var3 = param('three'); my $var4 = param('four'); my $thisapp = "test_pass"; my %stuff = ( Name => "Elijah", Age => "74", Sex => "Female", Location => "/home"); if (!$var1 && !$var2 && !$var3 && !$var4) { new(); }elsif (!$var1 || !$var2 || !$var3 || !$var4) { missing(); }else{ success(); } sub new { print "Content-type: text/html; charset=ISO-8859-1\n\n"; print < NEW
NEW for my $key ( keys %stuff ) { my $value = $stuff{$key}; print "

Name: 

" if ($key eq "Name"); print "

Age: 

" if ($key eq "Age"); print "

Sex: 

" if ($key eq "Sex"); print "

Location: 

" if ($key eq "Location"); } print <

NEW } sub missing { print "Content-type: text/html; charset=ISO-8859-1\n\n"; print < MISSING

You are missing an input value!

MISSING } sub success { print "Content-type: text/html; charset=ISO-8859-1\n\n"; print < SUCCESS

Data passed was:

Name: $var1

Age: $var2

Sex: $var3

Location: $var4

SUCCESS }