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 ,):
$q->p('Enter a URL, or Text with no URL, to translate:'),
$q->p("URL ", $q->textfield('url','http://','45'),
$q->p("'k3wlt0k' and 'pig' are just hooks to the Text::B
$q->p("Remove the URL to translate what's in the textare
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.