The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

use 5.010001;

use Pod::Simple::SimpleTree;
use Data::Dumper;

print Dumper(Pod::Simple::SimpleTree->new->parse_file(shift)->root)