#!/usr/bin/perl
use CGI;
$cgi = new CGI;
for $key ( $cgi->param() ) {
$input{$key} = $cgi->param($key);
}
print qq(Content-type: text/html
<html><head></head><body>
You are $input{name}
<p>
You wish to be a $input{animal}
<p>
You pushed the $input{request} button
</body></html>);