sub AboutBPP {
   my $MW = shift;
....