my $html_snippet = pod2html($pod_snippet);

##</code><code>##

use IO::Scalar;
use Pod::Tree::HTML;
$html_snippet = "";
$html_snippet_handle = IO::Scalar->new(\$html_snippet);
$pod2html = Pod::Tree::HTML->new(\$pod_snippet, $html_snippet_handle);
$pod2html->translate;