1.11 Devel::T1

package Devel::T1;


sub DB::DB {
  print STDERR join ":", ">> ", caller(), "\n";
}


1;


# ($package, $filename, $line) = caller;