sub testsub {
   print "inside";
}

print "outside";

testsub();

use DB::Demo <<'__DB__';
> b testsub
> r
__DB__