sub { print 'A'; $DB::sub->() }->();