Pod::Usage used to depend on Pod::Select, but was updated to depend only on Pod::Simple when Pod::Parser was deprecated (or rather, removed from core). So you could look at how Pod::Usage now does it (search the code for USAGE_SELECT), and I also have some simple code to pull sections out of POD (in this case verbatim sections) here.