Example One Results

#!/usr/bin/perl # ODBC/Perl Example One # Takes input from a textbox, and gives it back to the user. # Written by : Zack Steinkamp, 9 May 1997 # Standard Perl CGI library use CGI qw/:standard/; # Print HTTP Header print header; #Check to see if the form is filled out if (param()) { &displayResults; } else { &displayForm; } exit(0); sub displayResults { my $nm=em(param('name')); print < Example One Results You entered $nm in the textbox.

END_OF_PRINT } sub displayForm { print < Example Number One

Example Number One

Please enter some text, then click the Submit button...

END_OF_PRINT }