Help for this page

Select Code to Download

Select or download this

use Data::Dumper; #At the top of the file
...
print Dumper $P;