Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
print "\n\n\n\nnow mysub2\n";
$walker->();
exit;
  2. or download this
    C:\Documents and Settings\Owner\Desktop>perl n13.pl
now mysub
...
x  <1> leavesub[1 ref] K/REFC,1

C:\Documents and Settings\Owner\Desktop>