How to use 'Pod::Simple' to parse 'accept_targets'

[Alvis Yardley]

Hello:

I have, what I think is, a rather simple problem, but, unfortunately, am
unable to figure out a solution:

I have the following, very simple script:

use strict;
use warnings;

use Pod::Simple;

my $parser = Pod::Simple->new();
$parser->accept_targets(qw(
    PIR PASM PIR_FRAGMENT
    PIR_INVALID PIR_TODO
    PASM_INVALID PASM_TODO
    PIR_FRAGMENT_INVALID
));
$parser->output_fh( *STDOUT );
$parser->parse_file( shift @ARGV );

exit(0);

1;

And all I want to accomplish is to have the pod -- along with the text
included within the 'accept_targets' -- print to STDOUT.

Fwiw, I am proceeding on the premise that, according to Allison Randall, I do
*not* need to subclass 'Pod::Simple', but, rather, only need to, properly,
configure 'Pod::Simple.' That is, I only "need to call the 'accept_targets'
method before you [sic] call parse."

I would appreciate any help or guidance on this matter.

Thank you.

-- 
Alvis

P.S.

I also tried to adding the following 'print { $parser->{'output_fh'}; }',
after the call to 'parse_file()', but to no avail.