my ($out, $err) = (*STDOUT, *STDERR);
eval{
    *STDERR = *STDOUT;

    # pod2html code here
    # ...
};
*STDOUT = $out; *STDERR = $err;