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
", $q->textarea('text','','10','60')),
$q->end_form,
$q->p("'k3wlt0k' and 'pig' are just hooks to the Text::Bastardize function"),
$q->p("Remove the URL to translate what's in the textarea"),
$q->end_html;
####
my $location = $q->url();