#!/usr/bin/perl -wT
use CGI qw(:standard);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
my $text = param('text');
print header;
print start_html("The Mirror Says...");
$text = reverse($text);
print <<EndHTML;
<center>
<p>The words in the mirror read...</p>
<p>$text</p>
</center>
EndHTML
print end_html;