Re: Acme::Translator

[epoptai]

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.