env.cgi

#!/usr/bin/perl -wT
use strict;
use CGI qw(:standard);

# These are handy functions predefined in perl CGI library to avoid 
# the need of explicitly writing the HTML headers each time
# They are equivalent to
#       print "Content-type: text/html\n\n";
#       print "<html>\n";
#       print "<body>\n";

print header;
print start_html("Environment");

my $name=param("sample_text");

print "You entered $name<br>";

# As above, this is a predefined functions which ends the HTML document generated
# Equivalent to:
#       print "</body>\n</html>\n";
print end_html;

Generated by GNU enscript 1.6.4.