print $q->start_html(
    -lang => 'de-DE',
    -'xml:lang' => 'de-DE',
);