#!/usr/bin/perl -w
use CGI;
my $cgi = new CGI;
print $cgi->header;
my $message = $cgi->param('message');
my $figlet = "";
if ($message) {
$figlet =
"" .
`cd figlet/figlet22; ./figlet $message` .
"\n";
}
print <<"END_HTML";
cgi figlet one
cgi figlet one
THIS HAS A SERIOUS BUG - DO NOT PUT IT ON YOUR SERVER.
END_HTML