textarea with CGI.pm

#!/usr/bin/perl
use strict;
use warnings;
use utf8;
use CGI qw(:standard -no_xhtml);
my $q = CGI->new;
$q->charset('utf-8');
print $q->header(-type => 'text/html', -charset => 'utf-8');
my $html5 = $q->start_html(
  -lang => 'ja-JP'
  , -head => [meta({charset => 'utf-8'})]
);
$html5 =~ s/<!DOCTYPE.*?>/<!DOCTYPE html>/s;
print
  $html5
  , $q->start_form
  , $q->textarea(-name => 'foo')
  , $q->submit
  , $q->end_form
  , ($q->param ? $q->p(~~$q->param('foo')) : '')
  , $q->end_html
  ;