D4 M0NZ374RY G8Z is too funny, ++!
Here's a slightly rearranged version of the first print
block with a minor typo corrected in the line after
end_form (ended with ; instead of ,):
print $q->header(),
$q->start_html('Acme::Translator'),
$q->h1('Acme::Translator'),
$q->start_form(-method=>'get'),
$q->p('Enter a URL, or Text with no URL, to translate:'),
$q->p("URL ", $q->textfield('url','http://','45'),
$q->submit('Translate!')),
$q->p($q->radio_group(
'language',
[keys %languages],
'russian')),
$q->p("Text<br>", $q->textarea('text','','10','60')),
$q->end_form,
$q->p("'k3wlt0k' and 'pig' are just hooks to the Text::B
+astardize function"),
$q->p("Remove the URL to translate what's in the textare
+a"),
$q->end_html;
You could also make $location set itself by moving it after
the new CGI and saying:
my $location = $q->url();
--
Get some Perlmonks Related Scripts like framechat,
reputer, and xNN.