#!/usr/bin/perl
use strict;
use warnings;
use utf8;
use Pod::Simple::HTML
my $pod_html_output;
my $content = <<CONTENT;
=head1 foobar

L<<utf-8 letter (a with ogonek) which i can't paste here because perlmonks doesn't support unicode>>>

=cut
CONTENT
my $pod_html = Pod::Simple::HTML->new;
$pod_html->output_string(\$pod_html_output);
$pod_html->parse_string_document($content);
print $pod_html_output;

##</code><code>##

{
    package Foobar::Pod::Simple::HTML;
    use base qw(Pod::Simple::HTML);
    use CGI::Util qw(escape);
    sub general_url_escape {
        my($self, $string) = @_;
        $string = escape($string);
        return $string;
    }
}