my $q = CGI->new();

print $q->header(-charset => 'utf-8'),
    $q->start_html(
        -encoding => 'utf-8',
        -head     => $q->meta({
            -http_equiv => 'Content-Type',
            -content    => 'text/html; charset=utf-8'
        })
    );