use Pod::Text;

my $parser = Pod::Text->new();

$parser->output_fh(*STDOUT);
# or $parser->output_string( \my $out );

$parser->parse_file(*DATA);

__DATA__
= pod
...