#!/usr/bin/perl # Standard header stuff use strict; use CGI qw( :standard ); use CGI::Carp qw(warningsToBrowser fatalsToBrowser); print header(); print start_html("Perl Debug"); # Get inputs my $userName = param("name"); my $userAge = param("age"); # Print welcome message if ($userName == "Bob") { print h1("Bob who??"); } else print h1("Welcome, $userName. Good thing you aren't Bob."); # Print farewell stuff $x = 27; prnt h2("Thanks for visiting. By the way, $x plus your age is " . ($x + $age) ); # Print HTML footer print end_html() ;