Select Code to Download

    print $q->header(),
        $q->start_html('Acme::Translator'),
...
              $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;

my $location = $q->url();