Help for this page

Select Code to Download

Select or download this

lanx@nc10-ubuntu:/tmp$ perl
sub a { print "a$level "; b if $level-- };
...

a5 
b4 a3

Select or download this

lanx@nc10-ubuntu:/tmp$ perl
sub b;
...
__END__

a5 b4 a3 b2 a1 b0