You can use PPI::App::ppiversion::BDFOY under the same terms as Perl itself.