package My::P1;
  BEGIN {
    {
      package My::P1::_dbg;
      use Filter::Simple sub {
        s/^(\s*)#D /$1/mg if $ENV{"My__P1___dbg"};
      };
    }
    My::P1::_dbg->import;
  }

  use strict;

  sub new {
    my $I=bless \(my $x)=>__PACKAGE__;
    #D warn "$I is born\n";
    $I;
  }

  #D sub DESTROY {
  #D   warn "$_[0] went out of scope\n";
  #D }

  1;