my $parser = Pod::Text->new();
$parser->select( 'DESCRIPTION' );
$parser->parse_from_file( $0, STDOUT );