perl /home/lanx/perl/pm/source_introspection.pl 
some code
# source_introspection.pl:9: (
#   undef,
#   undef,
#   "use v5.12; \n",
#   "use warnings;\n",
#   "use Data::Dump;\n",
#   "\n",
#   "say \"some code\";\n",
#   "\n",
#   "*DB::dbline = \$::{ \"_<\" . __FILE__ };\n",
#   "ddx \@DB::dbline;\n",
# )