extract_links.pl

use v5.14;

my $file = $ARGV[0];

my $parser = Pod::TestLinks->new;
$parser->parse_file( $file );

package Pod::TestLinks 0.14 {;
  use strict;
	use base 'Pod::PseudoPod';
	use warnings;

	sub start_U { $_[0]->{in_U} = 1 }
	sub end_U   { $_[0]->{in_U} = 0 }

	sub handle_text {
		return unless $_[0]->{in_U};

		print "$_[1]\n";	
		}
	}