BEGIN { $^P |= 0x400;};
use v5.12; 
use warnings;
use Data::Dump;

say "some code";

*DB::dbline = $::{ "_<" . __FILE__ };
ddx @DB::dbline;