1#!/usr/bin/perl
2#
3# This code is used by lib/perl5db.t !!!
4#
5
6foo();
7
8sub foo {
9  bar();
10}
11
12
13sub bar {
14  baz();
15}
16
17sub baz {
18  1;
19}
20
211;
22