#!/usr/bin/perl -w use strict; use Pod::Select; my $parser = new Pod::Select(); $parser->select("NAME"); $parser->parse_from_file("Module.pm", "-"); __END__