use strict;
use warnings;
use Data::Dumper ();

{
   package Local::MyPodParser;
   use base "Pod::Simple::PullParser";
   sub get_token {
      my $self  = shift;
      my $token = $self->SUPER::get_token(@_);
      
      # do something with the token
      print Data::Dumper::Dumper($token);
      
      return $token;
   }
}

my $parser = "Local::MyPodParser"->new;
$parser->parse_file("somefile.pod");