$ PERL5DB='{package DB;sub DB{} sub sub {print ++$i,"    "x$i," $sub\n";&$sub;$i--}}' perl -d imlate.pl