#!/usr/bin/perl -w
use CGI;
my $q = new CGI;
print $q->header;
print "<CENTER><H1>Show me the monkey!</H1></CENTER><BR>";
print $q->end_html;

##</code><code>##

#!/usr/bin/perl -w
# CGI to select data from a SQL database
use CGI;
# use strict;
my $co = new CGI;
print $co->header;
print "<CENTER><H1>CGI Environment Variables Example</H1></CENTER><BR>";
# print $co->start_html(-title=>'CGI Environment Variables Example',
#     -BGCOLOR=>'black',
#     -TEXT=>'white');
# print $co->center($co->h1('CGI Environment Variables Example'));
# foreach my $key (sort keys %ENV) {
# print $co->b("$key=>$ENV{$key}"),
# $co->br;
# }
print $co->end_html;