{ package Dbg; 
  use mem &{sub(){$::INC{'Dbg.pm'}=1}};
  use warnings;
  use strict;
  our @EXPORT;
  our $FRE;
  use mem &{sub(){$FRE = qr{:([^:]+)$} } };
  use mem &{sub(){our @EXPORT = qw(Tracing Dumping Trackback DDump TPe) } };