DB<1> push @DB::typeahead, 'c 7','n','c'

auto(-3)  DB<2> c 7
main::(escape_from_deeply_nested_calls.pl:7):
7:      say "\nProgram ended";
auto(-2)  DB<3> n
d1e1f1f2f3f4f5f6f7f8f9f10-f11-f9-f8-f7-f6-f5-f4-f3-f2-f1-f0-e1-d1
Program ended
main::(escape_from_deeply_nested_calls.pl:8):
8:      say "Failure_code is $global_failure";
auto(-1)  DB<3> c
Failure_code is 14
Debugged program terminated.  Use q to quit or R to restart,