Select Code to Download

use Test::More tests => 5;
use lib "../lib";
...
$p->select(["head1", ["NAME", "VERSION"]]);
$p->output_hash();
my %h = $p->parse_file("../lib/Pod/Simple/Select.pm");

sub parse_file {
    my ( $self, $file ) = @_;
...
    $token       = $self->{doc}->next;
    $self->SUPER::parse_file($file);
    ...