#!/usr/bin/perl
use CGI;
$cgi = new CGI;
for $key ( $cgi->param() ) {
$input{$key} = $cgi->param($key);
}
print qq(Content-type: text/html\n\n);
$new_html = qq(<p><blockquote><font color="red">);
$new_html .= qq(You are $input{name}\n);
$new_html .= qq(<p>You wish to be a $input{animal}\n);
$new_html .= qq(<p>You pushed the $input{request} button);
$new_html .= qq(</font></blockquote>\n<p>);
open HTML, "course/cgi_module/handling.html" or die $!;
while ( <HTML> ) {
s/<!-- example2substitution -->/$new_html/;
print;
}
close HTML;